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Programas: Cubo de Rubik, 
Archivos en microdrive, etc. 
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Concursa en casa 
UN JUEGO РАКА conos protagonistas 


DISFRUTAR CON Wena! 
TUS AMIGOS sede 10 м s е. aun 


Con tu Spectrum (no importa el modelo, | 
16 б 48 К) y la cinta del “Un, Dos, Tres...” concurso ваю igual que el 
podrás conseguir diversión sin límites junto Basta con que pongas la cinta en tu 
con los tuyos. cassette y él te irá dando las instrucciones 
Por primera vez se te ofrece un de este nuevo y diferente juego. 
concurso participativo para microordenador, Puedes conseguir premios tan sorprendentes 
donde pueden competir hasta tres parejas. como los del programa de Chicho y, por 
Y con la novedad de que el juego será supuesto: también tiene Chollo.. 


cada vez distinto, pues siempre que 
conectes la cinta al Spectrum, te ofrecerá 


ы ылы E 1 йе сайа 3 cassetes 
contiene 
¡PREMIO DIRECTO!: 
% 


Viajes, moto-vespas, sintetizadores, 
microordenadores Spectrum, QL, un montón 
de premios más, y el gran Chollo: 


sión del año. 


hasta 


[RES MILLONES Patrocinadores 


del concurso: 


D E PES ETAS! i ша 
Мы 

en premios que puedes conseguir participando (х 
en la gran final. Мо pierdas más tiempo, (© СЕСОМ$А 


compra la cinta del “Un, Dos, Tres! 


Información y venta exclusiva en la red de 
Concesionarios Autorizados INVESTRONICA ЖЬ, А4 


¡Busca tu Chollór- 


Para este número habíamos reservado amplio espacio a las nove- 
dades que se suponía ibamos a ver en la feria del SIMO. Dispersados 
por cuatro pabellones. poco nuevo ofrecieron las casas comerciales 
para quienes su público principal quedaba fuera del recinto ante la 
prohibición de la entrada a menores de 17 años. Una vez más se evi- 
denciaba la necesidad de contar con ferias específicas para los orde- 
nadores domésticos. 

Como anunciábamos en el número anterior, comenzamos con la 
serie sobre el lenguaje PASCAL, ante las cartas recibidas en este sen- 
tido. Esperamos que siga incrementándose la comunicación para ha- 
cer de TODOSPECTRUM una revista participativa. 

Y como las fechas mandan, además de Santaclair, en las páginas 
centrales encontrará un «montaje» muy particular de nuestra masco- 
ta. Un programa bien estructurado y explicado para que anote sus 
compromisos y obtenga el calendario del próximo año o del que de- 
see. 

Finalmente, como podrá ver, hemos incorporado a «nuestra plan- 
Ша» una nueva impresora para facilitar la introducción de los pro- 
gramas, que utilizaremos íntegramente a partir del próximo nümero. 

Hasta el próximo айо. 


наанаа ААС с ис ии 


4 ПЕ PROFESION: PROGRAMADOR. Joan Sales y Os- 
car Domingo detallan el proceso de elaboración de un 
programa comercial. 

CONSOLA SPECTRUM. Hágase usted mismo su pro- 
pia consola, con amplificador de sonido incluida. 

A CODIGO RAPIDO. Código máquina explicado a fon- 
do, comparado con las instrucciones BASIC usuales. 
CONTABILIDAD. Analizamos en profundidad el pro- 
grama de Word-Micro. 

CALENDARIO. Programa agenda con el que podrá obte- 
ner un bonito calendario del próximo aio. 

PASCAL. Se inicia la serie de este ya popular lenguaje. 
PROGRAMAS. EL CUBO DE RUBIK en dos dimen- 
siones. ARCHIVO DE PUBLICACIONES EN MI- 
CRODRIVE, TENIS, AJEDREZ, FAR-WEST y PA- 
REJAS, un simpático test para encontrar su media naran- 


ja. 
PREGUNTAS Y RESPUESTAS. Preguntas y mejoras a 
programas aparecidos. Grabación de datos del programa 
EASEL y meses en español. 

GUSANEZ. Nuestra mascota se topa con el peor de los 
problemas. 


Cargado de Spectrums, 
Santaclair no faltó a la cita 
de estas navidades. Santiago 
Morga y Stnacho, del equipo 
de diseño de Dinamic Soft, 
lo hicieron posible trabajando 
con el programa Artist. 
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De profesión: 


competitividad y las técnicas em- 
pleadas en un juego, generalmente 
son obsoletas para el siguiente. Por 
ejemplo, ahora estoy con un algo- 
ritmo para trabajar en tres dimen- 
siones con posibilidades de giro. 
Esto se consigue tratando los pun- 
tos en coordenadas polares en lu- 
gar de cartesianas, es decir, por án- 
gulo y distancia a un origen. Como 
el Spectrum trabaja con coordena- 
das X, Y, hay que partir de cero y 
empezar a buscar rutinas sin trigo- 
nométrica, sin raíces cuadradas, 
sin decimales, debido al código 
máquina». 

«Una limitación a tener en 
cuenta antes de meterte con el jue- 
go es la pantalla», proseguía Joan. 


Aunque nunca se haya parado a 
pensarlo, detrás de cada video- 
juego hay muchas horas de trabajo, 
y en muchos casos detrás de ellos 
encontrará los nombres de Joan 
Sales y Oscar Domingo, dos pro- 
gramadores con «solera» para los 
que el lenguaje máquina no repre- 
senta ninguna dificultad. 

«Nos hemos dado cuenta de que 
las máquinas comerciales grandes 
tienden a lo deportivo y el video- 
juego siempre es una competición 
contra algo», nos decía Joan. «En- 
tonces o vamos a los juegos inteli- 
gentes, de lucha contra la máqui- 
па, o simular con la máquina unas 
condiciones lo más reales posibles. 
Una vez que se tiene clara la idea, 
hay que informarse sobre el tema, 
prescindiendo del aspecto infor- 
mático. Así en el juego de esquí, 
estudiamos un manual y libros de 
física que nos ayudan a compensar 
las fuerzas que inciden sobre la 
persona que está esquiando. El 
paso inmediato son los algorit- 
mos de comportamiento del es- 
quiador». 

Una vez estructurado el progra- 
ma y resueltos los algoritmos de 
movimiento es cuando se empieza 
a pensar en el Spectrum, como nos 
indicaba Joan. «Hay que estudiar 


las posibilidades del Spectrum 
para llevar a cabo la idea: el color, 
la pantalla... El problema de codi- 
ficar el programa es lo de menos. 
Puede contarse con el algoritmo 
necesario, pero puede resultar 
muy lento, incluso en código má- 
quina. El movimiento del esquí en 
tres dimensiones, por ejemplo, es 
un cálculo trigonométrico cons- 
tante y el código máquina del 
Spectrum по puede hacer estos 
cálculos a una velocidad acepta- 
ble». 

Se dice que cuando se han reali- 
zado muchos programas la progra- 
mación se convierte en una mez- 
colanza de rutinas. «En absoluto, 
los programas son siempre diferen- 
tes», replicaba Joan, «hay mucha 


ÍES LA ULTIMA VEZ 


«Es muy grande y está organizada 
para ser tratada fácilmente por la 
ULA, Manejarla desde código má- 
quina no es un problema desde el 
punto de vista teórico, pero son 7K 
que hay que tratar de forma inteli- 
gente si no se quiere perder mucha 
velocidad, es decir, hay que hacer 
trucos para mover la pantalla mu- 
cho menos de lo que parece. El 
algoritmo no es problema, pero 
cuando el ordenador sabe lo que 
tiene que pintar, el acto de pintarlo 
se lleva hasta el 75 por ciento del 
tiempo. En definitiva es una técni- 
ca cinematográfica, para que la 
imagen no vaya a saltos, tiene que 
cambiar la pantalla ocho veces por 
segundo y según qué programa se 
quiera hacer, no siempre se puede 
conseguir, 

Si las limitaciones del Spectrum 
lo permiten, el siguiente paso es el 
reparto del trabajo en bloques: im- 
presión en pantallas, movimiento, 
sonidos, etc. Es aquí cuando se em- 
pieza a codificar y cuando otro or- 
denador entra en escena: El IBM- 
PC. «Pretendemos llenar el Spec- 
trum totalmente de código máqui- 
na. Si metiésemos el objeto no ha- 
bría sitio para el fuente que acos- 
tumbra a ser diez veces más largo. 
Para ahorrar memoria, los gráficos 


están codificados y estos códigos 
vuelven a estar codificados en 
otros códigos más reducidos. Para 
esto tenemos programas estándar 
que nos facilitan mucho el trabajo, 
pero no podríamos llenar el Spec- 
trum del código objeto sin la ayuda 
del PC, Otra ventaja adicional es la 
posibilidad de editar de forma fácil 
y rápida cualquier error, indepen- 
dientemente del teclado. Incluso 
en las teclas programables hemos 
colocado las instrucciones assem- 
bler más usuales para ganar tiem- 
poen el teclado». 

Una vez que el programa está 
completo, pasa al Spectrum a una 
velocidad de 16.000  baudios. 
«Compramos el PC por la amplia 
documentación técnica que traía, 
gracias a lo cual hicimos el circui- 
to, el programa de recepción al 
Spectrum, otro de transmisión al 
PC y un protocolo para que los dos 
se entendiesen». El problema de 
las comunicaciones estaba resuelto 
para Joan. Ahora quedaba lo más 
tedioso. «Una vez cargado en el 


«Oscar Domingo concentrado en el código máquina.» 


Spectrum, hay que probar el juego 
en todas sus posibilidades. El pro- 
gramador no puede hacer nunca 
este test, porque inconscientemen- 
te no hace las barbaridades que 
puede hacer quien no conoce el 
juego. A nosotros los errores no 


nos salen». Aunque reconocía que 
los periodos de pruebas no eran su- 
ficientemente exhaustivos. «La 
parte comercial mete prisa. Hay 
independencia, pero somos cons- 
cientes de que hay que colocarlo 
en el mercado. Además, el número 
de combinaciones posibles es prác- 
ticamente ilimitado y no se puede 
probar todo. Siempre hay algún 
error. Ahora estamos desarrollan- 
do una nueva técnica, consistente 
en realizar código máquina que se 
programase en función de situacio- 
nes. Normalmente las rutinas cuya 
función es programar a otras ruti- 
nas en función de determinadas 
condiciones. Esto complica mucho 
las cosas, aparte del tiempo que se 
lleva hacer todo esto». 

«No nos enteramos de la comer- 
cialización, nosotros sólo progra- 
mamos», responden ante la pre- 
gunta de compensación por с! es- 
fuerzo realizado. «Hay un buen 
apoyo en material de todo tipo: li- 
bros, videos, ordenadores, etc., 
pero se podia hacer más». 


EL MAGNETOFON PARA TU ORDENADOR 


P. V. P. 8.900 PTAS. 


+ Entrada senoidal sensibilidad 15 mV 
* Salida digital 1 Vp p 


+ Altavoz incorporado de control de 
volumen 


* Contador de posicionamiento 
* Interruptor general 
* Monitor de señal 


* Nivel automático de grabación y 
reproducción «ЗАМЕНУ «LOAD 


* Parada automática al fin de cinta 


Ahora tambien C108-A 
Para Commodore. P. V. Р. 8.900 ptas. 


С-108 


COMPUTER AUTO ЮА! 


RECORDER 


¡AHORA TU SPECTRUM TAMBIEN HABLA! 


p. V. p. 
10.800 ptas. 


ELCURAAN SPECK LE DAFA UNA NUEVA 
DIMENSION A SUS JUEGOS " PROGRAMAS 


PROGRAMAS Y JUEGOS, 
ESPECIALES DISPONIBLES 


СИВНАН |МӨРЕЕСІН 
SINTETIZADOR DE VOZ PARA SPECTRUM 16648 


P. V. Р: 4.400 ptas. 


IRÍAJH] 
¡LjolT 


Currah Speech Commodore, S. A 


INTERFACE JOY STICK 
SIMPLE 

SPECTRUM 

РУР 

2.800 ptas. 


¡¡NOVEDAD!! 


EN INTERFACE JOY STICK 
SPECTRUM 


Compatible 
con SINCLAIR 
y KEMSTON 


(no programable) 


P.V.P. 4.800 ptas. 


EN LAS BUENAS TIENDAS DE 
INFORMATICA 


PRODUCTOS 


SECOMSA 
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А consola permite que el 

І Spectrum quede con el te- 

clado ligeramente inclina- 

ШЕШ do, lo cual es uno de los pun- 

tos esenciales para la como- 

didad del programador a la hora de 
utilizar el teclado. 

El interruptor de encendido se 
encuentra situado en un lateral de 
la consola, de forma que queda 
empotrado en el lateral derecho, 
para que no sea demasiado accesi- 
ble, y así evitar, en lo posible, que 
una mano demasiado curiosa pro- 
duzca un desafortunado reset en el 
ordenador. 

Otra de las grandes ventajas de 
la utilización de una consola, es el 
hecho de poder tener todo integra- 
do, obteniendo un equipo más 
compacto y Seguro, evitando asi el 
tipico lio de cables detrás del orde- 
nador. 

La impresora se ha dispuesto de 
forma que quede al nivel del tecla- 
do, y ligeramente desplazada a la 
derecha del panel de mandos, de 
forma que no entorpezca la mano 
derecha del programador al te- 
clear. 


Al quedar los conectores del 
Spectrum perpetuamente conecta- 
dos, ya que sólo se utilizan los con- 
mutadores e interruptores de la 
consola, los conectores del Spec- 
trum no sufren, pudiéndose éstos 
desconectar cuando se quiera libe- 
rar el Spectrum de la consola, lo 
cual esinmediato. 

Tras el encendido del ordenador 
con el interruptor empotrado en el 
lateral derecho se enciende un tes- 
tigo de alimentación. Este testigo 
se encuentra situado en la esquina 
superior izquierda del ordenador. 
Como, piloto se ha utilizado un 
diodo LED, como suele ser ya cos- 
tumbre en estos casos, 

En el panel de la impresora te- 
nemos una serie de mandos que 
son, de izquierda a derecha: 

1) El indicador del conmuta- 
dor de grabación SAVE-LOAD. 

2) El conmutador de grabación 
SAVE-LOAD. Este conmutador 
facilita la tarea de salvar progra- 
mas, ya que en la mayoria de los 
cassettes se produce un acople o 
realimentación si están los dos ca- 
bles de EAR y de MIC conectados 


Con este artículo presentamos la 
descripción de una consola para tu 
Spectrum que podrá albergar, de 
forma cómoda, la impresora ZX 
PRINTER y un amplificador de 
sonido, haciendo mucho más 
cómoda la tarea de programación, 
y de utilización del ordenador en 
general. 


simultáneamente y con el cassette 
en posición de grabación, lo cual 
obliga a desconectar el cable de 
EAR cada vez que se va a salvar un 
programa. Bastará pues a partir de 
ahora con poner el conmutador en 
posición de SAVE antes de salvar 
un programa, sin necesidad de em- 
pezar a conectar y desconectar ca- 
bles. Automáticamente, al poner 
el conmutador en posición de 
SAVE, sc encenderá el LED testi- 
go de SAVE, situado a la izquierda 
del conmutador. 

3) Este conmutador invierte el 
sentido de amplificación del am- 
plificador interno de la consola. Es 
decir, en posición normal, el am- 
plificador funciona amplificando 
los sonidos producidos por el 
Spectrum y haciéndolos audibles 
en el altavoz integrado en la conso- 
la. Ahora bien, en la otra posición 
el amplificador recibe como señal 
de entrada a amplificar cualquier 
señal introducida en el conector de 
señal de entrada situado en la parte 
trasera de la consola, para entre- 
garla una vez amplificada al Spec- 
trum por la entrada de EAR. Esto 


es muy útil cuando se quiere hacer 
análisis de sonidos con el ordena- 
dor. Podremos, por ejemplo, intro- 
ducir la señal de un micrófono а la 
consola, y una vez amplificada, el 
Spectrum, mediante un programa 
adecuado, visualizará la frecuencia 
de la señal introducida. 

Tenemos, en conclusión, estos 
dos casos: 


а) [Spectrum fH Ampiticador -Altavoz 


b) [eem > eed nen 


4) Elsiguiente conmutador co- 
necta o desconecta el altavoz, ya 
que es posible que nos interese te- 
ner el amplificador funcionando, 
pero sin que suene el altavoz. 

5) Este botón es el control de 
volumen del amplificador, que se 
efectúa mediante un potencióme- 
tro de 10 kilohomios logaritmico y 
con interruptor. 

En la parte posterior de la con- 
sola se encuentra situado el inte- 
rruptor del ventilador. No es de- 
masiado importante incluir el ven- 
tiladoren la consola ya que al que- 
dar el Spectrum completamente 
levantado, el ordenador no se ca- 
lienta demasiado, y sólo llega a 


templarse un poco la carcasa infe- 
rior. 


Construcción de la consola 


Empezaremos por cortar enma- 
dera de contrachapado de 3 milí- 
metros, las tablas que constituyen 
la base y los costados laterales y 
frontales. Los ensamblamos con 
cola blanca y pegamos listones de 
refuerzo en las esquinas. Para esto 
nos fijaremos en la figura 1, en 
donde se encuentra desglosada la 


Dimensiones de la consola. 


Figura 1. 


construcción mecánica de la con- 
sola. 

Cortamos las piezas que consti- 
tuyen el soporte para la impresora 
(ver fig. 2), y una vez construido lo 
pegamos al panel de mando, para 
después pegar éste a la consola. 
Una vez acabado esto, pegaremos 
los listones que servirán de sopor- 
tes al ordenador en la consola y las 
ültimas piezas de madera, para fi- 
nalizar la construcción mecánica 
de la consola. Una vez que esté 
todo perfectamente seco, se lijará 


para quitar las imperfecciones y 
asperezas de la madera. Por últi- 
то. se pintará con dos o tres capas 
de pintura para lacar. Por ejemplo, 
Titanlak. Una vez ya acabado todo 
el montaje mecánico de la consola 
y efectuados los taladros para la 
posterior fijación de los conmuta- 
dores. leds y el potenciómetro, 
construiremos el amplificador (ver 
montaje del amplificador). 

Pegaremos las bandas de goma 
sobre las cuales se apoya el Spec- 
trum, que van sobre los listones de 
sujeción. 

Ahora comenzaremos a montar 
todos los componentes de la con- 
sola. Alojaremos el amplificador 
bajo la caja que soporta a la impre- 
sora. Montamos el potenciómetro, 
los tres conmutadores, y los dos 
diodos leds, con los cables que van 
a éstos ya soldados, pues una vez 
fijados a la consola resultaría muy 
difícil cablearlos. Fijamos el alta- 
voz, y atornillamos la rejilla que 
(арага la membrana, Por fin empe- 
zaremos a cablear los distintos 
componentes de la consola, según 
el esquema del cableado de la figu- 
га 3. 

Las resistencias que уап сопес- 
tadas en serie con los diodos LED 
son de 680 ohmios y de una poten- 
cia de 1/4 de watio. Si se quiere 
que luzcan más, se puede bajar el 


valor de la resistencia, por'ejemplo 
a 470 ohmios. La resistencia que 
va conectada al interruptor del al- 
tavoz es de 8 ohmios y de 1 watio, 
y su función es de no dejar sin car- 
ga cl amplificador en caso de des- 
conectar el altavoz, que puede ser 
cualquiera de 4 u 8 ohmios de im- 
pedancia y de 1 watio como míni- 
mo. 

Prestar especial atención en sol- 
dar todo correctamente, aislando 
perfectamente todos los cables que 
estén a 220 voltios. Soldar los dio- 
dos LED, teniendo en cuenta su 
polaridad, ya que una inversión de 
ésta lo destruiría. Para ello fijarse 
en la parte plana que tiene en su 
base. El terminal más cercano a 
ésta corresponde al cátodo del 
LED, que es el que va conectado 
en serie con la resistencia limita- 
dora al negativo de la alimenta- 
ción. Los LEDs utilizados en la 
consola son de color rojo, aunque 
naturalmente se pueden utilizar 
verdes o naranjas. La conexión en- 
tre los conectores macho y hembra 
de antena se efectuará con cable 
coaxial del tipo empleado para las 
conexiones de antena de los televi- 
sores. Igualmente, las conexiones 
de los conectores ЕАК y МІС se 
efectuarán con cable coaxial del 
tipo empleado para baja frecuen- 
cia. 


Para cualquier detalle del mon- 
taje, fijarse bien en las fotografías 
de la consola, lo cual nos puede 
ayudar a salir de alguna duda que 
surja durante el montaje. Para fi- 
nalizar, indicamos que todo el ma- 
terial es perfectamente asequible 
en los comercio del ramo, y que el 
coste de la consola es de alrededor 
de las 2.000 ptas. en componentes 
electrónicos y material cléctrico. A 
esto le habremos de sumar el pre- 
cio de las maderas de contrachapa- 
do, pegamento y pintura. 


Amplificador de sonido 
para la consola 


El amplificador utilizado en la 
consola para el Spectrum está ba- 
sado en el circuito integrado TDA 
2002 que proporciona una poten- 
cia de salida de cerca de 2 watios 
con un altavoz de 8 ohmios. Se 
pueden obtener potencias mayores 
utilizando un altavoz de menor 
impedancia, por ejemplo de 4 oh- 
mios, aunque con 8 ohmios resulta 
satisfactorio el volumen obtenido. 

El circuito integrado viene inte- 
riormente protegido contra corto- 
circuitos en su salida, sobretempe- 
raturas, apertura del circuito res- 
pecto a masa e inversión de polari- 
dad, lo cual le hace muy apto para 


INTERRUPTOR 
EAR мс ANTENA О 


VENTILADOR 


INTERRUPTOR 
GENERAL. 


FUENTE DE 
ALIMENTACION 
DEL SPECTRUM 


мля DE 
СҮЗЕГІ; 


POTENCIOMETRO DE 
VOLUMEN CON INTE- 
RRUPTOR (encendido 
del amplificador) 


Figura 3. Cableado de la consola. 


Figura 5, Detalle del 
montaje del radiador y 
patillaje del circuito. 
integrado TDA 2002. 


Figura 4, Placa de circuito impreso del 
amplificador visto por el lado de las pistas de 
cobre. 


Lista de componentes 


2 Diodos LED rojos 
2 Porta LED 


1 Interruptor 


1 Portafusibles 


RI 220 1/4м 
R2 22 1/4w 
R3 | l/4w 
R4 47 1/4 


ІСІ = TDA 2002 
Potenciómetro 10 k log con int. 


Para la consola 


2 Resistencias 680 ohmios 1/4 watio 
1 Resistencia, 8 ohmios, 1 watio 
3 Conmutadores miniatura de dos canales 


1 Altavoz de 8 ohmios 


8 Conectores y clavijas 


Para el amplificador 


СІ 104F ЗУ Electrolítico 
C2 4704F ЗУ Electrolítico 


C3 1004F 
C4 1000 ШЕ 10у Electrolítico 
C5 1004F 
C6 1004F 


cacharrear con él, sin demasiado 
miedo a destruirlo. 


Montaje del amplificador 


Para montar este circuito utili- 
zaremos la placa de circuito im- 
preso de la figura 4. Una vez fabri- 
cada, y efectuados todos los aguje- 
ros para introducir los componen- 
les, empezaremos montando las 
resistencias. 

Seguidamente, soldaremos los 
condensadores, teniendo en cuenta 
que Cl, C2 y C4 son electrolíticos 
y así pues han de ser soldados en su 
posición correcta. C3, C5 y C6 ca- 
recen de polaridad, así resulta in- 


ато, 
EN 


diferente soldarlos en cualquiera 
de las dos posiciones. Finalizare- 
mos el montaje soldando el circui- 
to integrado, que no puede ser in- 
troducido en la placa más que en 
una posición, no dando lugar a du- 
das su alojamiento en la placa. 

En el esquema del circuito se en- 
cuentra un condensador electrolí- 
tico de 100 ШЕ colocado en parale- 
lo con C3, entre masa y alimenta- 
ción (patilla 5). Este condensador 
no es necesario, y de hecho no se 
ha incluido en el circuito impreso, 
ya que su misión es de filtrar la ali- 
mentación que proviene de la 
fuente de alimentación del Spec- 
trum, que ya posee un condensa- 


Alberto Piedra con su montaje. 


dor electrolítico para filtrar la ten- 
sión de alimentación. 

En caso de no encontrarse los 
condensadores  electrolíticos al 
voltaje indicado, también se pue- 
den utilizar, naturalmente, con- 
densadores de la misma capacidad 
pero a un voltaje mayor, por ejem- 
plo 25 voltios, pero en ningün caso 
un voltaje inferior al indicado. 

Por último, es conveniente ator- 
nillar algún tipo de disipador de 
calor al circuito integrado, para lo 
cual nos puede valer alguna pla- 
quita de aluminio rectangular de 
dimensiones 2 x 6 centímetros (ver 


figura 5). 
Alberto Piedra 


Solida altavoz 
Alimentación 


Mosa 
Entrada de la бейсі 


Figura 6. Esquema teórico del amplificador y su montaje en la placa. 


2Х Spectrum + 
(64K) 
Para los que exigen 4- 


Decir que el lenguaje BASIC es lento, no es decir nada nuevo. Olvidarse de él por este 
motivo y pasar al código máquina es una solución que dista mucho de ser la más 
eficiente, independientemente del gusto particular de cada uno por este lenguaje. Lo que 
le proponemos en este artículo es un camino intermedio, potenciar al BASIC con ayuda 
delcódigo máquina allí donde es más lento. La comparación entre los dos lenguajes, 
esperamos le sea de utilidad y logre así incrementar la “rapidez” 

de sus programas. 


Para empezar fijemos el proble- 
ma: Al ordenador le salen telara- 
fias mientras esperas a que te dé 
unos resultados. Lo primero quc 
hay que hacer es identificar qué 
parte del programa es la que lo en- 
lentece. Para ello distribuiremos a 
lo largo del programa diversos 
puntos de prueba, esto es, mensa- 
jes a pantalla, y cronometraremos 
el tiempo que transcurre entre 
cada mensaje. Una vez localizado 
el cuello de botella, procederemos 
а sustituirlo por una subrutina en 
lenguaje máquina. 

Escribir programas en lenguaje 
máquina tiene mucho que ver con 
colocar unos nümeros en unas po- 
siciones de memoria. Para poder 
hacer esto antes es necesario reser- 
var dichas posiciones de memoria, 
yaqueen principio, toda la memo- 
ria está dedicada al BASIC y a los 
UDG (gráficos definidos por el 
usuario. En el Spectrum de 48 
Kbytes existen 65536 posiciones 
(del 0 al 65535) que pueden conte- 
ner nümeros comprendidos entre 
el 0 y el 255, ambos inclusive. 

La reserva de memoria 5с realiza 
con la instrucción CLEAR, que 
fija un tope al área disponible para 
el programa BASIC. Podremos si- 
tuar nuestras rutinas, por tanto, 
por encima de este tope. Situare- 
mos en la primera línea de nuestro 
programa la instrucción CLEAR. 
62000 (al final del artículo hay una 
nota dedicada a los usuarios del 
Spectrum de 16 Kbytes). Con esto 


habremos logrado fijar el RAM- 
ТОР en la posición 62000 y dejan- 
do un sitio seguro para nuestro 
programa en código máquina por 
encima de esta posición, aunque 
realicemos un NEW и otro 


CLEAR. La instrucción CLEAR 
62000 nos protegerá 3367 posicio- 
nes de memoria, o bytes (65535 
menos 62000). 

Su programa tomará la forma de 
una serie de nümeros decimales 


"pokeados" en posiciones situadas 
por encima del RAMTOP. 

Estos números son utilizados 
por el ordenador para indicarle al 
procesador las instrucciones que 
debe realizar. El intérprete BASIC 
del Spectrum lo que hace es tradu- 
cir las líneas BASIC en una serie de 
estas instrucciones, de manera que 
el procesador las pueda entender y 
ejecutar. Los programas en lengua- 
je máquina son más rápidos que el 
BASIC porque no necesitan ninguna 
traducción, son instrucciones eje- 
cutables directamente por el pro- 
cesador. 

El programa 2 utiliza 22 núme- 
ros decimales, situados en las posi- 
ciones 62050 al 62071, para gene- 
rar una serie de tonos musicales 
cuando se pulsa una tecla. Uno de 
los programas es más corto gracias 
a la utilización de las instrucciones 
DATA, pero los dos realizan la 
misma función. Una vez que se 
ejecute el programa BASIC, el pro- 
grama en código máquina quedará 
residente en la memoria a partir de 
la posición 62050 y ya podrá ser 
borrado al programa en BASIC 
Para poder ejecutar el código má- 
quina es necesario indicar al orde- 
nador a partir de qué posición 
debe empezar a ejecutar. Para ello 
se utiliza la instrucción LET М = 
USR 62050. 

Si esta instrucción está situada 
dentro de un programa BASIC, des- 
pués de ejecutarse la rutina en có- 
digo máquina se seguirá ejecutan- 


id 


do el BASIC. En nuestro caso (pro- 
grama 1) utilizamos algunas líneas 
para realizar funciones de repre- 
sentación e introducción de datos. 
Una vez que ya esté ejecutando el 
programa musical utilice la “В” 
para acabar. 

Se pueden tener diversos progra- 
mas en código máquina a la vez en 
memoria con la ünica, y evidente, 
condición de que no se solapen. 
Por ejemplo, se pueden tener su- 


brutinas distintas en las posiciones 
62050 al 62071 y 62075 al 6220, y 
acceder a ellas con las instruccio- 
nes LET M=USR 62050 y LET M 
= USR 62075, respectivamente. 
Fíjese que dejamos libres entre 
ellas algunas posiciones que se des- 
perdician, pero que en algún mo- 
mento pueden llegar a sernos útiles 
si hacemos alguna modificación en 
las subrutinas. 

Además de las posiciones de me- 
moria el procesador puede acceder 
a los llamados registros. Los regis- 
tros son como las posiciones. pero 
el procesador las suele utilizar 
para funciones especiales porque 
son más cómodos y rápidos de uti- 
lizar. Los registros se nombran por 
letras A, В,С, О, E, Н y L. El más 
importante de ellos es el A, llama- 
do también acumulador, ya que es 
el que contiene la información que 
está manejando el procesador en 
cada momento. 

Una instrucción típica del en- 
samblador puede ser LD 
А,(62001), que significa cargar 
(LD, load en inglés) el acumulador 
con el contenido de la posición 
62001. Recuerde que el ensambla- 
dor es una forma fácil de represen- 
tar el lenguaje máquina. Utiliza- 
mos LD para representar el núme- 
ro decimal 58 que le indica al pro- 
cesador que debe cargar algo en al- 
gún registro. 

Si posee algún ensamblador para 
Spectrum lo único que tiene que 
saber que LD significa “load” que 


en castellano quiere decir “carga”. 
Si por el contrario no tiene ensam- 
blador, entonces tendrá que pro- 
gramar directamente con los nú- 
meros. De todas formas, y aunque 
no tenga ensamblador, le reco- 
mendamos que programe utilizan- 
do los mnemónicos (abreviaturas) 
típicas del ensamblador y luego 
traduzca, a mano, a código máqui- 
na. 

“Pokeando” los números 58, 49 


y 242 en dos posiciones de memo- 
ria consecutivas, situadas por enci- 
ma del RAMTOP, tendrá un pe- 
queño programa en lenguaje má- 
quina que cargará en el acumula- 
dor el contenido de la posición 
62001. Deberemos añadir también 
un cuarto número, 201, que se re- 
presenta por el mnemónico RET 
(RETurn = volver); para indicar al 
procesador que hay que volver al 
BASIC. 

Si se fija, se puede ехїгайаг que 
58 vaya seguido de dos paráme- 
tros: 49 y 242, mientras que LD 
sólo necesita uno, una dirección. 
La razón de ello es que para indi- 
car una dirección es necesario un 
nümero más grande que 255, que 
es la mayor cantidad que se puede 
representar mediante un byte (con 
ocho bits sólo se pueden represen- 
tar números comprendidos entre 0 
y 28-1). Por lo tanto hacen falta 
dos bytes para representar una di- 
rección. Para calcular qué dos пй- 
meros representan una determina- 
da dirección, puede utilizarse el 
programa número 3. 

En el código máquina pueden 
encontrarse conceptos equivalen- 
tes a los ya encontrados en el BA- 
SIC. Por ejemplo: JP (JumP = salto) 
es equivalente al GOTO del BASIC 
Una instrucción JP ocupa tres by- 
tes de memoria. El primero es un 
195 (decimal), y los siguientes los 
dos números que representan a la 
dirección a donde se va a efectuar 
el salto. Por el contrario, el código 
máquina carece de todas las pro- 
tecciones que se pueden encontrar 
en el BASIC, Por ejemplo, en BA- 
SIC si se ejecuta una instrucción del 
tipo 10 GOTO 10 el ordenador en- 
tra en un bucle sin fin, pero que 
puede ser interrumpido pulsando 
las teclas CAPS y SPACE. En có- 
digo máquina jamás se puede inte- 
rrumpir un proceso, a no ser que el 
propio programa tenga explícita 
una salida, examinando el teclado, 
por ejemplo. Una buena idea en 
un programa máquina es compro- 
bar el teclado, y si ha sido pulsado, 
volver al BASIC, Esto nos evitará 
dejar la máquina colgada en un 
bucle infinito, y sin salida posible. 

Además, cuando se trabaja en 
código máquina, no existe com- 
probación sintáctica, por tanto, to- 


PROGRAMA 1 


1 CLEAR 62000 


2 FOR 1=62050 TO 62060 
5 READ х: POKE i,x: NEXT i 


10 БАТА 205,142,2,40,2,50,254, 


6,0,75,201 


12 LET m=USR 62050 


14 PRINT AT 0,03“ 
15 60 TO 12 


LD A, (dir.) 


CPL 


JPZ, (dir.) 


СР2 


JPZ, (dir.) 


СРЗ 


JPZ, (dir.) 


CP4 


JPZ, (dir.) 
LD A, (dir.) 


DECA 


LD, dir.) A 
LD A, (dir.) 
LD, (dir) A 


RET 
LDA, (dir.) 


RUN ы. "EU PON 
ома еса осло зар жо A 


Da «eo << 


жоу 


PROGRAMA 2. METODO 2 
PROGRAMA METODO 1 CLEAR 62000: REM fija RAMTO 
Р 
1 CLEAR 62000 2 POKE 62050, 205 14 POKE 62062,0 
2 -62050 2 3 POKE 62051,142 15 POKE £2043,30 
5 EO 2600-0276 ЭШ ї 4 POKE 62052,2 16 РОКЕ 62064,0 
2 Р У at 5 РОКЕ 62055,125 17 РОКЕ 62065, 205 
4 DATA 205,142,2,125,254 6 РОКЕ 62054,254 18 POKE 62066, 181 
5 DATA 0,202, 119,242, 105 7 POKE 62055, 0 19 РОКЕ 22047,5 
= 9 POKE 62037,119 21 POKE 6206999. 
5 , 
7 DATA 205, 81953 199,98 10 POKE 62058, 242 22 POKE 22070,242 
В БАТА 242,201 11 POKE 62059; 103 25 POKE 62071,201 
12 LET M=USR 62050 12 РОКЕ 62060,111 100 LET M-USR 62050 
15 РОКЕ 62061,22 
dos los errores son tragados y eje- 
INCA 62090 | 60 60 cutados por la máquina. Lo más 
probable es que, si se comete un 
LD, (dir) A 62091 | 50 50 error, la máquina se “cuelgue”, y 
62092 | Y 53 que la única forma de salir sea de- 
62093 | Y 242 senchufando y volviendo a enchu- 
LDA, (dir.) 62094 | 58 58 far. 
| $2095] Y 50 Algunas veces parecerá que la 
! 62096 | Y 242 máquina produce mensajes de 
LD, (dir.) A 62097 | 50 50 error. Estos falsos mensajes de 
62098 | Y 54 error se producen cuando antes de 
62099 | Y | 242 volver al BASIC se han alterado po- 
RET 62100 |201 | 201 siciones por debajo del КАМТОР, 
LDA (dir.) 62101 | 58 58 dañando así el programa BASIC. 
62102 | Y 50 Todo lo anteriormente citado 
62103 | Y 242 hace a los programas en código 
DECA 62104 | 61 61 máquina muy difíciles de depurar. 
Un ensamblador puede resultar 
LD, (dir.) A 62105 | 50 50 muy útil (los mnemónicos son más 
62106 | Y 54 fáciles de leer) y además algunos 
62107 | Y 242 ensambladores proporcionan he- 
LDA, (dir.) 62108 | ss 58 rramientas de depuración. Sin un 
62109 | Y 49 ensamblador la realización de un 
62110 | Y 242 programa mínimamente complejo 
LD, (аг) 62111 | 50 | 50 Puede resultar penosa. 
i 62112 | Y 53 Cuando diseñe un programa еп 
62113 | Y 242 código máquina hágalo de forma 
RET 62114 1201 | 201 que sea fácil de corregir y depurar. 
LDA, (dir.) 62115 | 58 58 Es también buena idea diseñar un 
62116 | Y 50 número de programas pequeños, 
6217 | Y 242 probados por separado, y luego 
INCA 62118 | 60 60 unirlos, que diseñar un único pro- 
grama grande, más difícil de com- 
LD, (dir.) A 62119| 50 |5050 probar. Рог ejemplo, si se quiere 
62120 | Y 54 hacer un programa para dibujar fi- 
62121] Y 242 guras coloreadas en la pantalla, re- 
ТОА (і) 62123 | sg | sg | Sultará más fácil dividir el progra- 
62123 | Y 49 ma en dos subprogramas, de la si- 
62124 | Y | 242 guiente manera: Un programa 
LD, (dir) A 62125 50 50 para dibujar figuras y otro progra- 
62(26| Y 33 ma para colorear figuras. Siempre 
62127| Y 242 serán más fáciles de corregir por 
RET 62128 | 201 | 201 | separado. |, 
Para escribir un programa en có- 


digo máquina conviene seguir un 
procedimiento formal fijo. Lo pri- 
mero que hace falta es una lista de 
los códigos decimales de las ins- 
trucciones (apéndice A del manual 
del Spectrum). También es necesa- 
rio saber qué funciones realiza 
cada instrucción. No tenemos sitio 
aquí para explicar casi 700 ims- 
trucciones, que son todas las que 
tiene el procesador Z80, asi que 
nos limitaremos a explicar una se- 
lección de las más utilizadas, y que 
nos bastarán para realizar un ejem- 
plo de cómo transformar un pro- 
grama BASIC en lenguaje máqui- 
na. 

Este que sigue, es el programa a 
traducir: 


65 GOSUB 90-Н: REM Н PUE- 
DE VALER 1.2.304 
“(Кезі del programa) 

91 ТЕТ ҮЕ-Ү1-1:1ЕТ XF-XI : 
RETURN 

92 LET YF-YHLELET XF-XI : 
RETURN 

93 LET ХЕ-ХІ-ІЛЕТ YF-YI : 
RETURN 

94 LET XF-XI-ELET УЕ=У1 : 
RETURN 


Estas líneas pueden pertenecer a 
cualquier juego. Los valores de H 
significan un desplazamiento ha- 
cia arriba, abajo, derecha o iz- 
quierda. XI e YI son las coordena- 
das iniciales (antes del desplaza- 
miento), y XF c YF son las finales. 
Damos por supuesto que, por pro- 
grama, H sólo puede tomar los va- 
lores arriba indicados. 

Supongamos que el programa 
fue escrito, desarrollado y depura- 
do en BASIC y que cuando se ejecu- 
tó se comprobó con horror que re- 
sultaba muy lento. La solución 
consiste en ir sustituyendo seg- 
mentos del programa BASIC por ru- 
tinas en código máquina hasta 
conseguir la velocidad adecuada. 
No es necesario traducir todo el 
programa. 

El resultado es un programa for- 
mado en gran parte рог una estruc- 
tura BASIC que va llamando a pe- 
queñas rutinas en código máquina, 
encargadas de realizar los trabajos 
que hubieran resultado muy lentos 
en BASIC. 

Antes de describir las etapas que 
nos van a llevar a convertir en má- 


PROGRAMA 3 


10 INPUT "Escribe la direccion 


20 CLS 1 PRINT "La direccion " 
¡DIR 

30 PRINT "ве repre 
5 numeros" 

40 PRINT DIR-INT (018/256) #256 
$" Y "¿INT (018/256) 

50 PAUSE О: GO TO 10 


nta por lo 


PROGRAMA 5 


1 CLEAR 62000 

2 FOR I=62050 TO 62128 

3 READ X: POKE 1,Х: NEXT I 

4 DATA 58,52,242,254,1,202,12 
1,242,254,2 

5 DATA 202,155,242,254,2,202, 
149,242,254,4 

6 DATA 202,165,242,58,49,242, 
61,50,53, 242 

7 DATA 58,50,242,50,54,242,20 
1,58,49,242 

В DATA 40,50,55,242,58,50,242 
,50,54,242 

9 DATA 201,58,50,242,61,50,54 
,242,58,49 

10 БАТА 242,50,55,242,201,58,5 
0,242,60,50 

11 DATA 54,242,58,49,242,50,55 


5,242,201 
12 КЕМ ЖЖ CODIGO MAQUINA kk 
13 REM xx EN xx* 
14 REM kk MEMORIA кк 
15 КЕМ 
16 КЕМ —-LINEAS DE РЕШЕВА-- 
17 REM 


39 FOR H=1 TO 4 

40 POKE £2004,H 

50 РОКЕ 62001,4: REM Var. ҮІ 

60 РОКЕ 62002,4: REM Var.XI 

70 LET M=USR 62050 

80 PRINT " 

90 PRINT "Direc.62004 (antes Н 
)= ";РЕЕК 62004 

100, PRINT "Direc. 62005 (antes 
ҮР) = ";РЕЕК 62005 

110 PRINT "Direc. 62006 (antes 
ХЕ) = ";РЕЕК 62006 

120 МЕХТ Н 


Direc. 62004 (antes 
Direc. (antes 


62004 (antes 
62005 (antes 
620 
52004 (antes 
62003 (antes 
62006 (antes 


| 


РКОСКАМА 6 


1 CLEAR 62000 

2 FOR і=52050 TO 42060 

5 READ x: POKE i,x: NEXT i 

10 DATA 205,142,2,40,2,30,254, 
6,0,75,201 

12 LET m=USR 62050 

14 PRINT АТ О,О;т;" " 

15 60 TO 12 


+ quina el programa de arriba, su 


Código 
máquina 


LDA (dir) 5 


Decimal Explicación 


© 


Carga el acumulador con el contenido de 


una posición de memoria, como la 62001 
Ee 
егің 
ое СШ, 
шарық 
27 


zz 


Ejemplo: 


Jo жөне 


Los dos М definen la posición 62001. Deben 
tomar los valores 49 y 242 en este ejemplo. 


Ver programa 3 para más aclaraciones 
JP dir Salto a la posición definida por las dos N. 


Ejemplo: — Ex өө 
4| 


225 


базе ЭМ), 


La posición, en este caso 62056, viene defi- 
nida por los números 104 y 242 
21-11 


Vuelta al Basic $ ж 


тоот маш вгохог 
Tor cu “ч 
H 


RET 201 


«көр 
ало СЕТ per 
pare 


Instrucciones en código máquina «———— 


CALLdiry 205 En este caso RET no actüa por separado, 


su compa- N sino como compafiero del CALL, por tanto 
ñero N no producirá la vuelta al BASIC, CALL es 
equivalente a la instrucción BASIC GOSUB 
Ejemplo: 
ФООНШ шаш Vuelta al punto desde el que se efectuó el 
pe CALL, no al BASIC. Saltamos desde la posi- 
ЕЕ ción 62052, y volvemos а Іа 62063, así que 
Жегі по se vuelve exactamente a la posición de 
Е llamada, sino a la siguiente 


NOTA: Los recuadros en blanco contienen otras instrucciones. 


REGLAS: 

a) Si encuentra un CALL dir, entonces el RET es su compañe- 
ro. 

b) Sinohay CALL, entonces el retorno se realiza al BASIC. 

Este es un ejemplo de la utilización de CALL y su compañero 
REF. 


tuyamos las variables por posicio- 
nes de memoria. А partir de ahora 
sustituiremos УТ por la posición 
62001. Para ver su valor utilizare- 
mos la función PEEK y para cam- 
biarlo POKE. Por ejemplo, si en 
una línea de programa tenemos la 
instrucción PRINT ҮІ, la sustitui- 
remos por PRINT PEEK 62001. 
Si encontramos LET A-YI lo sus- 
tituiremos por LET A = PEEK 
62001. Si lo que encontramos es 
LET YI=4, entonces lo cambiare- 
mos por POKE 62001,4. 

Podemos sustituir YI por una 
dirección porque sabemos que to- 
mará valores entre @ y 255, ya que 
es el valor de una coordenada de 
pantalla. Haremos lo mismo con 
las variables H, XI, YF y XF y las 
posiciones 62004, 62002, 62005 y 
62006, respectivamente. Aunque 
todavía estemos en BASIC (PEEK y 
POKE pertenecen al BASIC), ya he- 
mos empezado la transformación. 
Este cambio nos permite compar- 
tir valores entre los dos lenguajes. 

La figura 4 indica los pasos se- 
guidos para transformar nuestro 
programa. Las dos primeras co- 
lumnas contienen las instruccio- 
nes en ensamblador y algunos co- 
mentarios; la tercera indica el nú- 
mero de las posiciones de memo- 
ria; la cuarta, el código operativo 
de la instrucción, así como los pa- 
rámetros requeridos por cada ins- 
trucción; en la quinta, están los va- 
lores definitivos que toman las po- 
siciones de memoria. Todos los va- 
lores están dados en decimal. 

En el programa 5 vemos el pro- 
grama BASIC utilizado para intro- 
ducir en memoria el código má- 
quina y para probarlo. También 
hay unas copias de las pantallas re- 
sultantes de la ejecución. Una vez 
que el programa haya pasado to-* 
dos los controles puede añadirse al 
programa principal, simplemente 
incluyendo unas líneas que “po- 
keen" los números en las posicio- 
nes adecuadas por encima del 
RAMTOP. Una vez hecho esto, 
pueden borrarse las líneas BASIC 
65, 91, 92, 93 y 94 y sustituirlas 
por una línea 64 ТЕТ М = USR 
62050. 

Recuerde que ahora las antiguas 
variables no sirven para nada, así 


Código А Explicación 
máquina Decimal 
LD (dir) A 50 Guarda el contenido del acumulador en la 
N posición definida por las dos N. 
N Ejemplo Шөнө 
sis Сып) 
ке = 
тесі 
Не aquí un programa en código máquina 
completo que transfiere el contenido de la 
posición 62001 al acumulador, y de aquí a la 
posición 62002. Después vuelve al BASIC. 
Listado 
10 CLEAR 62000: REM fija ram top 
20 FOR і-62050 ТО 62056 
30 READ x: POKE 1х: NEXT i 
40 DATA 58,49,242,50,50,242,20,1 
50 LET m-USR 62050 
60 STOP 
e 
Бега 49 у 242 definen el 62001 
ЖАТЫН | чет 50 y 242 definen el 62002 
6208: С 307 
= еее 
Si Бат 
Antes de ejecutar el programa en código má- 
шпа. 
à 62001 C&D 
62002 [ 79) 
Después de ejecutar el programa. 
5 62001 ГВ!) 
Instruccio- 62002 [ВТ] 
nes simila- 
res a la an- 
terior 
LDB,n 6 
LDC,n N 
14 
LDC,n N 
22 
LDD,n N 
30 
LDE;n N 
38 
LDH;n N 
46 
LDL,n N 
LDA,N 62 Carga el acumulador con el número “N”, 
n “ММ? debe estar comprendido entre 0 y 255. 
Ejemplo: eooo Ey LD АЗ 
62051 31 
DECA 61 Decrementa un contenido del acumulador 
en una unidad. 
NOTA: 0 menos 1 produce 255. 
INCA 60 Incrementa el contenido del acumulador en 


una unidad. 
NOTA: 255 más 1 produce 0. 


que hay que eliminarlas por com- 
plete. En caso contrario podrían 
darnos problemas. Para cerciorar- 
nos de que las hemos eliminado, 
después de ejecutar el programa 
ejecutaremos la instrucción 
PRINT ҮІ, por ejemplo. Si el ог- 
denador da el mensaje Variable 
not found sabremos que nuestro 
programa no utiliza para nada la 
variable YI. 


Ahora ya tenemos tres progra- 
mas. El programa BASIC, el progra- 
ma BASIC que "pokea" el programa 
en código máquina y el programa 
en código máquina en sí. Guarde 
una copia del programa “роКса- 
dor" con fines de documentación. 
Salve el programa en código má- 
quina utilizando una instrucción 
SAVE "nombre" CODE ту. 
Donde “m” es la dirección de co- 
mienzo de la rutina (62050 en 
nuestro caso) y “п” la longitud del 
programa (78) Es decir: SAVE 
"nombre" CODE 62050,78. Para 
volver a cargar la rutina máquina 
escriba LOAD * " CODE. 


Como puede ver en el programa 
4, traducir algunas instrucciones 
BASIC es relativamente sencillo y 
no necesita tener un conocimiento 
exacto del conjunto completo de 
instrucciones del Z80. Aunque 
pueda parecer en principio trivial, 
es una buena forma de empezar a 
adentrarse en los misterios del có- 
digo máquina. Comience tradu- 
ciendo los condicionales y los bu- 
cles que son las instrucciones que, 
normalmente, enlentecen más un 
programa. Cuando tenga alguna 
soltura puede empezar a encargar- 
se de segmentos de programa más 
extensos o complicados, como 
pueden ser la entrada y la salida. 
Una línea que imprima algo es 
mucho más fácil de programar en 
BASIC que en código máquina, pero 
es también mucho más lenta de 
ejecutar. 


Por ültimo, una nota aclaratoria 
para los usuarios del Spectrum 16 
Kbytes: existen 32768 posiciones 
de memoria, así que escriba 


CLEAR 30000 en vez de 62000. 
Utilice las posiciones 30001 al 
30049 para los datos, y sitüe el 
programa en código máquina a 
partir de la posición 30050. 


Spectrum puede con todos. 


¿Quién nos gana en 
gama? Estamos por 
asegurar que ninguno. 

No olvides que tenemos un 
Spectrum para cada 
exigencia: dos capacidades 
diferentes (16K y 48K) y 
tres modelos con dos tipos 
de teclado (doméstico y 
profesional). 


¿Quién nos gana en 
programas? Spectrum 
cuenta con más de 5.000 
fítulos publicados a nivel 
infemacional, cien de ellos 
estón traducidos al 
castellano. 


Naturalmente estos crecen 
casi de forma constante, 
Uno buena muestra es el 
voluminoso catálogo de 
software que puedes 
solicitar a tu distribuidor de 
confianza. 


* De venta en la Red de Concesionarios 
INVESTRONICA. 


¿Quién nos gana en 
periféricos? Ya son más de 
50 los periféricos creados 
especialmente para el 
Spectrum, pero no creas 
que eso termina ahí. Es 
тиу raro el día que no 
aparece en el mercado una 
novedad. Así tu Spectrum 
guardará para fí el mismo 
interés del primer día. 


¿Quién nos supera en 
número? Otro factor a tener 
en cuenta: te diremos que 
ya son más de tres 
millones los 
microordenadores Sinclair 
vendidos en todo el mundo 
(y más de 100000 
Spectrum vendidos en 
España) ¿no te parece esto 
una buena razón para 
confiar en tu Spectrum?. 


Decídete; este año tener un 
Spectrum es todo un regalo. 


Los concesionarios 
INVESTRONICA tienen para fí 
un montón de novedades. 


aquellos productos que no hayan sido comercializados en España a través de su distribuidor exclusivo INVESTRONICA, S.A. 


TA DAS LDB,A 71 Carga en el registro В el сол- 
¿Código Decimal Explicación tenido del A. А 
Y Para conocer más instruccio- 
ADDA,;n 198  Sumaal acumulador el núme- nes similares a ésta, consultar 
n ro decimal “N”, comprendido la página 185 «tel manual del 
entre 0 y 255. ӨШ. Рог os а fi- 
^ nai ас la pàgina зс рисас Їссг: 
Ejemplo: #85 ван 125 70 da bit 7.1 LD AL 
Si A=6 antes, entonces des- (o Id a,1) tienen el código ope- 
pués A=30 rativo 125. 7D es el número 
SUBn 214 Resta del acumulador el nú- equivalente en hexadecimal. 
п mero decimal “N”, compren- СРп 254 Este par de instrucciones sig- 
dido entre 0 y 255, seguido n nifican comparar el contenido 
P p " de del acumulador con el nüme- 
Ejemplo: Eo To n", y si son iguales saltar a 
ADDA,B 128 Suma el contenido del registro “ан”, 
Ва! A (acumulador), dejando JPZ(dir) 202 “іг” está definido por las dos 
el resultado en el A. N “М”. “n” es un número entre 
Ejemplo: 427 аг: М 0 y 255. Ejemplo: 

5 me CEES SE He aqui un programa que sal- 
Instrucciones simi- Елес ta а la posición 62209 si en la | 
laresa la anterior же БЕП posición 62001 hay un 3. | 
ADDA,C 129 Ede] LD A (62001 | 
ADD A.D 130 2752 | е 
ADD uci] ^ seguido de JP Z, 62209 
ADDA,H 132 Кл) Saltar si 5 
АББАС 133 altar si el contenido del acu- | 

Я mulador es un 3. 

2! 
Código Explicación — Si se pulsa más de una te- 
eget Decimal cla a la vez, C contendrá el 
maquina 
valor 254, salvo que una 
Varias 205 Se mira el teclado, quedando de las teclas sea SHIFT en 
juntas 142 el registro C con los siguientes cuyo caso quedará el valor 
2 valores: correspondiente a la otra 
— Si no se ha pulsado ningu- tecla. Por ejemplo, 31 de 
na tecla, C contiene 255. haberse pulsado la Z. 
40 — Si se ha pulsado alguna te- . Sex] 
2 cla entonces queda el valor Ejemplo: ЕЕ 
30 especificado еп la tabla si- E 
guiente Е: 
254 Те: АВ C D E ES 
6 Valor: 38 0 15 22 21 Leerel teclado, y situar un va- 
0 Теш FIG H J lor en el registro C. 
75 Valor: 14 6 1 18 9 Finalmente, el programa 6 es 
Teda: K un programa BASIC que accede 
ко LMNO al teclado. Cuando esté ejecu- 
Valor: 17 25 16 8 26 tando el programa pulse cual- 
Тєш: P Q Е. S T quier tecla, y el valor del re- 
Valor: 34 37 13 30 5 gistro C aparecerá en pantalla. 
Tecla: U V W X Y 1 CLEAR 62000 
Valo: 10 7 29 23 2 2 FOR i-62050 TO 62060 
Теа 22 d 20085 34 5 READ x: POKE {ж 
Valor: 31 36 28 20 12 NEXTi 
10 DATA 250,142,2,40,2,30 
Теш 24040 T .254,6.0,75,201 
Valor: 4 3 Ti 19 27 12 LET m-USR 62050 
Tecla: 0 CAPS SHIFT 14 PRINT AT 0,0;m; “ ” 
Valor: 35 39 24 15 GO TO 12 


VENDO: 


'* ORDENADOR SINCLAIR Q L 
POR 98.700 plas. 

9 UNIDAD DE DISCO SINCLAIR 
POR 58.800 ptas. 


> MULTISYS TEM, Б. 


BOUTIQUE INFORMATICA 
* Ordenadores Personales. 


REM 


* Ordenadores personales Hard y Soft. 


* Micro-ordenadi de gestión. 
* 2Х SPECTRUM 48K * Cursos de Basic. Тойга ino novedad pris 
GRAN OPORTUNIDAD AA Д 'odas las novedades еп: 
кеме” Ofcinas: RENOVACION EN MARCHA, ЗА. Programas. - Periféricos - libros 
[ONSULTE PARA MAYOR, 76 c/. Espronceda, 34 - 2% int - MADRID-3 (nacionales y de importación) 


INFORMACION А: 


Teléfono (91) 441 24 78 


Pautas Rent Para: Spectrum - Dragón - Base 64 
F.D.C. Avda. ITALIA, 60-62. Telf. Кузел рее ЫЗ Spectravideo - Oric - Commodore, etc. 
SALAMANCA (823) 22 89 07 Teléfono (91) 445 28 08 С/ San Vicente, 53, ALICANTE. Tel. (965) 21 55 66. 


FACTURACION SPECTRUM 


Un programa que le permite realizar 
En un solo programa 
manejo con microdr 
ficheros de clientes, proveedo 
Tes, articulos, etc, Plas 15.000 


CASSETTE A MICRODRIVE 
MICRODRIVE A MICRODRIVE 
CASSETTE A CASSETTE 
MICRODRIVE А CASSETTE 


Contabilidad oficial: 12.000 ptas. 
Equipo de gestión: Spectrum, 
Impresora tamaño papel grande. 
interface microdrive, interface. 

1. papel programa facturación 
contabilidad: 195 000 ptas. 


ALSI, S. A. Antonio López, 154. 
Tel. 91/475 43 39. 28026 MADRID 


20 Ficheros diferentes 


SUSCRIBASE A 


(12 NUMEROS) 
TARIFA DE PRECIOS DE SUSCRIPCION 


CORREO CORREO CORREO CORREO 
ORDINARIO CERTIFICADO AEREO AEREO-CERTIF 
PTAS $ PTAS $ PTAS $ PTAS $ 
ESPAÑA 3000  21| 3273 23 | 3055 22| 3333 24 


EUROPA, MARRUECOS, TUNEZ 
TURQUIA, ARGELIA Y CHIPRE 3.456 25 4.272 31 3.600 26 4.418 31 
COSTA RICA, CUBA, CHILE, РА- 


RAGUAY Y REP. DOMINICANA. | 3.396 24 | 4212 30 | 4.164 30 | 4.980 36 


ЭЛ 3.264 23 | 4080 29 | 3149 22| 3965 28 
RESTO DEL MUNDO р 3.264 23 3.540 25 5775 27 4.050 29 


3.456 25 4.272 31 4.224 30 5.040 36 


€—————À——MÀ—MÀ——————————— 


Recorte y envie este сироп а: Tedospectrum EDISA. Lopez de Hoyos, 14! - 28002 -MADRID 


El importe lo abonare: POR CHEQUE О CONTRA REEMBOLSO : 
CON TARJETA DE CREDITO о American Express O Visa 0 Interbank O 
Т Т 
Número de ті Tarjeta 1 1 1 Fecha de caducidad: —— 


DIRECCION 


NOMBRE | 


CIUDAD D.P. PROVINCIA 


MAYORES PRESTACIONES 
EN MICRODRIVE 


Aun desconocidos por la mayoría, los programas de contabilidad pará el Spectrum van 
creciendo tanto en cantidad como en calidad. Una de las aplicaciones clásicas por las que 
entraba un ordenador en las empresas, le permite ahora al Spectrum competir ya sea en 
el terreno personal o profesional. World-Micro lo ha hecho posible. 


no de los mayores proble- 
| mas de todo programa de 

contabilidad reside en la li- 
ШЕШ imitación del número de 

asientos о apuntes, y en el 
número de cuentas а utilizar еп los 
distintos grupos y subgrupos. Para 
lograr resultados aceptables ha de 
poderse trabajar con el mayor nú- 
mero posible en ambos casos, pero 
muy especialmente por lo que se 
refiere a los apuntes contables, co- 
nocido por el diario. Al tener un 


número de datos elevado surge el 
problema de su manipulación para 
acceder a los datos desde memo- 
rias externas (léase microdrives) de 
la forma más rápida y eficiente po- 
sible. A esto ha de sumarse el re- 
quisito de la ordenación por fechas 
para obtener la información actua- 
lizada en todo momento y resolver 
los típicos problemas de la factura 
que aparece «dos meses después». 
Los famosos contra-asientos pasan 
al baúl del olvido, gracias a elabo- 


radas técnicas de programación 
que pueden dar verdaderos que- 
braderos de cabeza cuando dejan 
de funcionar. 

Pensando en todos estos proble- 
mas elegimos el programa de con- 
tabilidad World Micro por ser uno 
de los que ofrecen un mayor nú- 
mero de apuntes y cuentas. Espe- 
ramos que el análisis detallado de 
las posibilidades de este programa 
le proporcione mayor información 
de la que puede esperar de su pro- 


T 


grama de contabilidad y elija acor- 
de a sus necesidades. 

Si se decide por este programa, 
puede elegir entre utilizar uno o 
dos microdrives. Esta segunda op- 
ción es más cómoda, pero más cara 
ya que necesitará de las dos unida- 
des. Si estaba pensando en utilizar 
un cassette, mejor piénselo dos ve- 
ces. Peso si estaba pensando en 
comprarlo y hacer copias, mejor 
olvidelo. El programa necesita una 
placa de protección que viene con 
el cartucho y que ha sido diseñada 
especialmente como sistema «anti- 
piratas». Esta placa se conecta en 


ce 1, unidad(es) de mí 
programa e interface ya puede em- 
pezar a trabajar. Necesitará, ade- 
más, una copia impresa de su tra- 
bajo, es decir una impresora y aquí 
siempre tendrá problemas inde- 
pendientemente del programa que 
elija. Este programa está prepara- 
do para la impresora Newprint Ad- 
mate DP80 conectada al interface 
1. Para trabajar con otras impreso- 
ras cerciórese primero de que fun- 
cionen y pague después. 

Como decíamos, para trabajar 
con el programa son necesarios dos 
cartuchos de microdrive. En uno 
se encuentran todos los programas 
à los que se accede segün se vayan 
necesitando para mantener la 
RAM lo menos ocupada en cuanto 
a programas se refiere, y en el otro 
están los archivos de datos. Lógica- 
mente, con dos microdrives puede 
trabajar más rápidamente. Y como 
la velocidad es un factor muy im- 
portante, trabaja generalmente en 
memoria, motivo por el que los 
programas han de ser cortos. La 
capacidad de los archivos es de 256 
cuentas que pueden desarrollarse 
en dos niveles, y 1000 apuntes. 
Para lograr una rapidez aceptable, 
imposible de conseguir si se graba- 
sen los datos cada vez que se finali- 
za la introducción de un apunte, se 
van guardando los datos en memo- 
ria (RAM) y se graban en bloque 
cuando se indica el fin de trabajo o 
cuando se superan los 500 apun- 
tes. (Esto es debido a que los 1000 
apuntes se guardan en dos bloques 
de 500 cada uno, no pudiéndose 
disponer de los 1000 simultánea- 


Listado del plan 
contable. Nivel 
de desagregación 
22 y 5 dígitos, 
соп posibilidad 
de fijar 
presupuestos. 


mente por problemas de memo- 
ria). Aquí tenemos una solución al 
problema de los tiempos de acceso 
en microdrive, pero que nos gene- 
rará problemas mayores si la esta- 
bilidad de la corriente no es buena 
O si por azar se produce alguna in- 
terferencia. Quedarse «colgado» 
puede significar perder todo el tra- 
bajo de un día. Solución: no espe- 
rar al final del día para la graba- 
ción. Se puede indicar fin de traba- 
jo y reanudar posteriormente la in- 
troducción de datos. 

Conocida la estructura básica 
del programa, pasemos a algo más 
operativo. Introduciendo el cartu- 


Una protección 
soft im 
piratería del 
programa grabado 
en microdrive. 


cho de programas, habiendo co- 
nectado previamente la placa de 
protección, se accede al programa 
directamente pulsando RUN y 
ENTER. De esta forma aparecerá 
el menú de opciones: 


Gestión del plan contable. 


1, 

2. Gestión del fichero de apun- 
les. 

3. Balances y extractos. 

4. Actualización. 

5. Gestión del cartucho. 

6. Fin de sesión. 


Para empezar a trabajar hay que 
preparar el cartucho. De esto se 
encarga la opción cinco, gestión 


del cartucho, y de algunas opera- 
ciones más: formatea y crea los аг- 
chivos, copia de seguridad y cierre 
del ejercicio. El primer paso es, 
pues, formatear y crear los archi- 
vos. El siguiente paso, igualmente 
obligatorio, es crear el plan de 
cuentas. Para introducir los apun- 
tes hay que referenciarlos a las 
cuentas ya existentes. 

La introducción de datos (cuen- 
tas y apuntes) se realiza mediante 
el procedimiento de máscaras. Las 
teclas del cursor se emplean para 
el movimiento horizontal dentro 
del campo y el vertical para pasar 
al campo anterior o posterior se- 
gún la tecla que se presione. Pul- 
sando EDIT se reproduce el cam- 
po con el contenido del último 
dato introducido para este campo. 
Con TRUE VIDEO se limpia el 
campo en que se encuentra el cur- 
sor. Con DELETE se elimina el 
carácter en la posición donde se 
encuentra el cursor. Esta manipu- 
lación de los datos es común para 
todos los campos y una vez que se 


domina resulta muy práctico para 
acceder rápidamente a los datos 
que se desean y producir, en su 
caso, los cambios que sean necesa- 
rios. 

Además, una pequeña rutina 
permite aprovechar la informa- 
ción ya escrita en el campo; así, 
por ejemplo, si se tiene la cantidad 
20.000, para introducir 35.000 
basta con pulsar 35 y ENTER, ya 
que la información de los nuevo 
campos se escribe sobre el dato an- 
terior. 


El plan de cuentas 


Al margen de la introducción de 
los datos de cada cuenta, se ofrece 


“А mayores prestaciones... 
menor número de asientos y 
cuentas.” 


una información útil para el con- 
trol: número de orden de la cuenta, 
cuenta anterior, actual y posterior. 
Una línea final indica si se está in- 
sertando una cuenta adicional o 
cambios en una cuenta ya existen- 
te. También va informando de las 


distintas posibilidades de actua- 
ción en cada campo (й en campos 
alfanuméricos, signos negativos en 
campos numéricos, etc. Las 
cuentas quedan automáticamente 
ordenadas siguiendo el plan conta- 
ble (10, 100000, 20, 200000, etc.). 

Es fácil la corrección, ya que al 
querer introducir una cuenta, si 
ésta existe aparecen sus datos en 
los respectivos campos para pasar 
a su corrección. Pero curiosamente 
no existe la opción de anulación de 
las cuentas. Una última caracterís- 
tica a destacar es la posibilidad de 
visualizar, con este mismo proce- 
dimiento, las distintas cuentas, no 
produciéndose la grabación mien- 
tras no se introduzcan o modifi- 
quen algunas cuentas. 


Cuentas 

Dígitos por с! uenta . 4 
Caracteres рог titulo de 
cuenta ET 
Dígitos en saldo. inicial, 
acumulado debe y haber... 8 


Dígitos para el presupuesto 8 


Gestión fichero de apuntes 


La entrada de datos se hace, 
como decíamos, por el procedi- 
miento de máscaras. Primero se in- 
dica la fecha de trabajo. Después 
vienen los datos de los apuntes: 
cuenta, concepto, importe, debe- 


HA ес сс сал. AAA A A A AA A A AA a + 


CONTABILIDAD © Vorid Micro 1994 


ENTRADA DE CUENTAS 


SALDO 

ACUMULADO DEBE: 
ACUMULADO HABER 
PRESUPUESTO (x 10000) 


NUMERO DE REGISTRO: 1 
NUMEROS DE CUENTA 
INTERIOR 


552865 


Entrada de los datos 
de las cuentas. 


CONTABILIDAD © Vorld Micro 1984 


ENTRADA DE APUNTES 


APUNTE ЕМ CURSO 
SUENTA CONCEPT: 


E 


POSTERIOR 


MRYUSC. 


'NADORES 
сна Мо Dto 
010584 1 


о 
ENTA ORDI 
он в 


CAPS+SYMBOL SHIFT=FIN 


Entrada de apuntes, con indicativo de totales 


por sesión y descuadre. 


/haber y fecha. Aunque la fecha 
parezca una redundancia no lo es. 
El campo de la segunda fecha 
siempre contiene la introducida en 
el primero, pudiéndose cambiar 
para asientos correspondientes a 
otro día. Es normal realizar varios 
apuntes con un solo día, incluso 
cuando corresponden a días distin- 
tos, por lo que este редиейо truco 
es interesante. 


Al margen de estos datos, apare- 
ce en pantalla más información re- 
ferente al número de apunte, los 
totales de DEBE y HABER «por 
sesión» y la diferencia entre estos 
conceptos. À ojos de contable, este 
«por sesión» resultaría bastante 
sospechoso. La explicación está en 
que el programa no coge asientos 
sino apuntes, es decir, las anota- 
ciones sucesivas que se introducen 
desde el «comienzo de la sesión». 
Y por tanto no comprueba si el 
ento está cuadrado o no (no sabe 
cuándo se acaba el asiento). Los 
datos de DEBE y HABER infor- 
man así del acumulado desde el 
inicio de las operaciones, informa- 
ción de dudosa utilidad. Con el 
dato sobre la diferencia se puede 
comprobar visualmente si ha habi- 
do algün error en la entrada de da- 
tos. 


Apuntes 277 1000 
Cuentas 3.4, 5, 6 digitos 
Concepto . »x ОЛЗ 
Importe . 8 digitos 


Listado de apuntes. 

a una fecha. La opción 
por días, no incluye 

la última columna, 
y permite su 
ordenación por 
fechas. 


Actualización 


Este es uno de los capítulos más 
importantes a tener en cuenta en 
todo programa de contabilidad, 
consistente en actualizar el plan de 


cuentas con los datos de los asien- 
tos. Básicamente hay dos métodos: 
hacerlo directamente cada vez que 
se introduce un asiento o realizar 
este proceso en bloque como op- 
ción independiente. Esta segunda 


———————————— d 


касына ылық тынын 


VENTAS 
Saldo Inicial 


а FECHA + CONCEPTO 
VENTA ORDENADORES 


39/10/64 


а DEBE в + HABER + а SALDO + 


Extracto de cuenta 
por pantalla. 


Diario. Apuntes 
por pantalla. 


opción suele ser la más empleada 
ya que no requiere la presencia del 
usuario, a excepción del momento 
inicial cuando se selecciona la op- 
ción de actualización. La actuali- 
zación directa por asiento lleva un 
tiempo que resultaría excesivo 
para el microdrive y para la pa- 
ciencia del usuario que había de 
estar «pegado» al ordenador todo 
el tiempo. 

El programa utiliza esta segunda 
opción, tal y como hemos podido 
deducir del funcionamiento del 
programa, pues el manual de ins- 
trucciones sólo comenta la entrada 
de datos. 

Al actualizar el plan de cuentas, 
en la pantalla van apareciendo los 
apuntes objeto de actualización. 


Tenga cuidado con la actualiza- 
ción. Normalmente salvo progra- 
mas muy sofisticados sólo la podrá 
realizar una vez, es decir, que des- 
pués de actualizar el plan de cuen- 
tas no podrá incorporar nuevos 


“Еп precios hay uniformidad 
(aproximadamente 8.000 pts.). 
La prestaciones son radical- 
mente distintas.” 


apuntes. Nosotros lo probamos, y 
nos quedamos en el intento: iel te- 
clado se bloqueó! 


Balances y extractos 


Realizada la actualización, el si- 
guiente paso es la obtención de ba- 
lances y extractos. La opción tres 
nos da un nuevo submeni: 


— Plan de cuentas. 


UN CONTABLE 


MUY PARTICULAR 


José María Oyarzábal lleva ac- 
tualmente la contabilidad de trein- 
ta y cuatro clientes, gracias a sus 
tres ordenadores Spectrum a los 
que ha conectado distintas unida- 
des de microdrive. Ahora confía en 
su Spectrum y en su programa de 
contabilidad, pero hace dos meses 
la situación no parecía tan clara: 
«Pedí presupuesto a varias casas. 
El precio de los equipos era de un 
millón a lo que había que sumar 
100.000 pesetas del programa y el 
10 por ciento de mantenimiento. 
Esto nos llevó a pensar en el Spec- 
trum y a informarnos de los pro- 
gramas de contabilidad existentes 
para este ordenador. Vimos mu- 
chos y finalmente nos decidimos 
por el World-Micro por su capaci- 


dad. Hay otros más completos con 
opciones de regularización y reor- 
denación por fechas, pero nos de- 
cidimos por éste porque permite 
trabajar con 256 cuentas y 1000 
apuntes, requisito indispensable 
para el volumen de datos que ma- 
nejamos». 

Después de cuatro meses de tra- 
bajo intenso con el programa, José 
María sabe mucho de los proble- 
mas de implementación de todo 
programa nuevo. «Hasta hace una 
semana hemos estado subsanando 
errores». A mayor complejidad, 
mayores habrán de ser los períodos 
de prueba, que en este caso parece 
que fue llevada en gran parte por el 
cliente. «A los quinientos apuntes 
se bloqueaba. Tampoco se habían 


— Balance de sumas y saldos. 
— Estado del presupuesto. 
— Diarios. 

— Extractos de cuentas. 


Sea cual fuese la opción elegida, 
todas ellas tienen dos característi- 
cas en comün: se puede obtener los 
datos o varias cuentas о varios 
apuntes según los intervalos que se 
den y, en segundo lugar, se puede 
elegir la visualización por pantalla 
о por impresora. Esta segunda po- 
sibilidad resulta muy interesante 
para consultas rápidas y esporádi- 
cas. 

Al estar realizado el programa 
en BASIC en su mayor parte es en 
la impresión donde se detectan los 
mayores tiempos de espera. No es 
una cuestión de mayor rapidez de 
impresión. Cada vez que hay que 
sacar el nombre de una cuenta se 
ha de recorrer la tabla de las 256 
hasta que se localiza (mediante los 
bucles FOR-NEXT del BASIC). 

Decíamos al inicio de este ar- 
tículo que la mayor bondad de este 
programa era la capacidad de sus 
archivos. Pero también es cierto 
que ello conlleva el no poder dis- 


previsto listados de más de 50 
cuentas y no se producía el salto de 
página... Eran pequeños proble- 
mas, pero ocasionaban una impor- 
tante demora de tiempo, porque 
habia que desplazarse a la tienda 
para que lo arreglasen». 

Conscientes de los problemas 
que se dan en todo tipo de progra- 
ma, y de que el factor tiempo juga- 
ba en este caso un papel importan- 
te, aumentó su plantilla para in- 
corporar una programadora que 
resolviese los problemas que se pu- 
diesen dar. «Me sale rentable por- 
que amplía los programas de 
acuerdo a nuestras necesidades es- 
pecíficas. Ahora hacemos nuestros 
propios programas». 

«Lo que no habíamos previsto 
era la luz. ¡Nos volvemos locos» 
Todavía con un brillo de asombro 
e incredulidad en sus ojos, José 
María nos contaba que un aumen- 
to en la tensión le fundió el interfa- 


ea 
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Nuevo Computer Monitor 97001 
1 блог Philips o al 


Aveces se (байа una buena inversión 
enla compra de un ordenador, y por 
comodidad, se adquiere un monitor de la 
MSME MAFOA sir perisar que, en muchos 
09908, eHabricánte puede tener una gran 
experiencia en la fabricación de: 
prdenadores pero e 
montores. El resultado de este fándèrn 
ordenador dé calidad y monitor de baja 
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ción rápida 
queno deja rastro de manchas eri la 
pantalla mientras se desarrollar 
Pantalla tratara Gon aille: 


Jnidat de desviación esperial dé 


ablecimiento especializado más 


poner de la opción de regulariza- 
ción y el no contar con los apuntes 
ordenados por fechas. Esta segun- 
da desventaja puede subsanarse 
obteniendo el diario «por fechas», 
pero ello enlentece la impresión y 
requiere la presencia del usuario 
para indicar las fechas en las que se 
desca obtenerlo. 

Como todo programa, todavía es 
susceptible de mejoras. Pero tam- 
bién como todo programa, existen 
otros complementarios con distin- 
tas prestaciones que habrá de eva- 
luar seriamente antes de hacer su 
elección. Y una última recomen- 
dación: no se Не demasiado de ре- 
queñas demostraciones con un nú- 
mero reducido de cuentas y apun- 
tes. Cuando se llenan los archivos 
es fácil encontrar problemas que 
los programadores no pudieron ver 
por no trabajar a fondo con el pro- 
grama y es igualmente fácil que los 
tiempos de acceso a la información 
e impresión se modifiquen sustan- 
cialmente y después parezca que 
sus programas no son tan rápidos 
como el de la tienda. 


Balance de sumas 
y saldos clásico. 
Se complementa 
con el estado 
presupuestario. 


ce 1, la fuente de alimentación y el 
Spectrum. En otra ocasión la ines- 
tabilidad del fluido eléctrico había 
supuesto la pérdida de un día de 
trabajo, aproximadamente 8000 
apuntes perdidos. «Compramos 
una fuente de alimentación espe- 
cial para estabilizar la corriente y 
no hemos vuelto a tener proble- 
mas». 

«No nos preocupa que no regu- 
larice o que no haga el cierre de 
cuentas. Esto lo hacemos nosotros 
aparte. La mayor limitación que le 
encontramos es que no reordena 
por fechas, al menos directamente, 
lo que subsanamos tirando listados 
de diarios por fechas, pero esto es 
lento, se necesitan dos días por 
cliente. Tenemos otros programas 
que realizan esta ordenación, pero 
el problema es siempre el mismo: 
el número de apuntes se reduce en 
un 75 por ciento. A nosotros esto 
no nos interesa.» 


AGENDA: 
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La otra forma 
de anotar sus 


compromisos 


Comencemos por plantearnos 
un problema modesto. Queremos 
obtener el día de la semana en que 
cae el 1 de enero de cualquier año 
teniendo para ello en cuenta que 
en 1984 el 1 de enero fue domingo. 
Como se podrá suponer, si logra- 
mos resolver esto habremos dado 
un gran paso en nuestro intento de 
obtener el calendario del año re- 
querido. Ante la magnitud de la 
empresa, queremos ahora encon- 
trar en qué cae el 1 de enero de 
1985. Como 1984 es bisiesto, tiene 


366 dias (febrero tiene 29), necesi- 
tamos encontrar el número de se- 
manas que van de 1 a | de enero. 
Para ello calculamos. 
INT (366/7) = 52 

Como 52 x 7 = 364 nos damos 
cuenta que nos faltan dos días para 
completar el año y que en conse- 
cuencia el 1 de enero de 1985 cae 
en martes. Dudo mucho que se 
haya perdido en la argumentación 
anterior, pero si no es así léala otra 
vez, pues éste es el truco esencial 
del programa. 


Volvamos ahora con nuevos 
ánimos a calcular el día 1 de cual- 
quier año tomando como punto de 
partida el 1 de спего de 1984. Para 
hacer esto, debemos aún vencer la 
pequeña dificultad que significa 
que no todos los años tengan el 
mismo número de días. Para supe- 
rarla actuemos de la siguiente for- 
ma: cada 4 años a partir del 84 nos 
vamos a encontrar con otro bisies- 
to, es decir, tomaremos como pe- 
ríodo natural de tiempo un inter- 
valo de 1461 días (4 x 365 + 1) con: 


с 


lo que dado un año cualquiera 
para hallar el número de días que 
van del 1 de enero de 1984 al | de 
enero de este año que llamaremos 
X calculamos: 
INT((X-1984)/4)x1461 (1) 

Que nos da el número de días 
que hay entre dos años bisiestos 
sucesivos, y a continuación calcu- 
lamos: 

(X - 1984 — INT((X-1984)/4)x4)x 
x365 (2) 


Que nos da el número de días 
que hay desde el último año bisies- 


to hasta el considerado. Sumando 
esto a (1) obtendremos el resultado 
apetecido. 

Supóngase que queremos hallar 
el número de días que hay del 1 de 
enero de 1984 al 1 de enero de 
2002. Comenzamos por calcular 
(1). 


INT ((2002-1984)/4)= 4; 4х1461= 
5844 


En consecuencia hemos епсоп- 
trado que en el período considera- 
do hay 4 grupos de 4 años y en es- 
tos 4 grupos un total de 5844 días. 


Calculamos ahora (2). 
2002 - 1984-4x4= 
730 

Portanto el número de días será 
5844 +730=6574 

Calculemos ahora el número de 
semanas del siguiente modo: 
INT (6574/7)=939 

Y ahora calculemos 
6574 -939x7= 1 

En consecuencia, de 1 de enero 
de 1984 a 1 de enero de 2002 sobra 
un día para que el número de se- 


:2х365- 


10 DIM 6 (12,351): DIM C(12,31) 350 РКІМТ "7 - CARGAR ANOTACION 
: DIM a(12,31): DIM m$(12,12): D ES" 
ІМ d$(7,12) 560 INFUT NU 

20 LET 2%-"": LET DIAM-O: LET 565 IF NU-O THEN GO TO 1000 
C$-"I/7-INT (I/7)": LET A$-"DIF/ 570 IF NU-1 THEN 60 TO 1000 
4-INT (DIF/4)": LET B$-"INT (DI/ 580 IF NU-2 THEN 60 TO 2000 
vt 590 IF NU-3 THEN 60 TO 2500 
100 LET m$(1)="ENERO 51": 600 IF NU=4 THEN GO TO 3000 
LET M$(2)="FEBRERO 28": LET M 610 IF NU=S THEN 60 ТО 5500 
$ (5) ="МАК20 xot 620 IF NU-6 THEN GO TO 4000 
110 LET M$(4)="ABRIL 50": 630 IF NU-7 THEN GO TO 4500 
LET МФ (5) ="МАУО 31": LET М 1000 INPUT "ANO: "¡ANO 
$(6)=" JUNIO зо" 1005 IF nu=0 THEN БО TO 8000 
120 LET M$(7)="JULIO Si": 1020 IF nu£»0 THEN CLS : GO SUB 
LET M$(8)="AGOSTO 31": LET M 9000: INFUT "MES: "¿MES 
$(9)="SEFTIEMBRE 30" 1030 LET DIF=ANO-1984 

130 LET M$(10)-"OCTUBRE 31": 1040 LET DIA-INT (DIF/4)x1461 
LET M$(11)-"NOVIEMBRE 20%: LET 1050 LET RES-(DIF-INT (DIF/4)x4) 
M$(12)-"DICIEMBRE 30" X368: LET П1ЇА1-01А4БЕ5 

140 LET D$(1)="LUNES"s LET D$(2 1060 LET DIAM=0: FOR I-1 TO MES- 


)="MARTES": LET D$(3)="MIERCOLES 
": LET D$(4)="JUEVES”: LET D$(5) 
="VIERNES": LET D$(4)-"SABADO": 
LET D$(7)="DOMINGO" 

150 LET а(1,1)=1: LET a(1,6)-1: 
LET a(3,19)211 LET а(4,1) =1: LE 
T a(6,21)=1: LET а(7,25)=1: LET 
а(В,15)=1: LET а(10,12)41: LET a 
(11,1)=1: LET a(12,25)=1 

500 CLS : FRINT "QUIERE:": PRIN 
Т: PRINT "O - OBTENER UN ANO": 
PRINT "1 — OBTENER UN MES" 

510 PRINT "2 — HACER ANOTACIONE 
Б" 

520 PRINT "3 – VER ANOTACIONES" 
550 PRINT "4 - CANCELAR ANOTACI 


ONES" 

555 FRINT "5 - CORREGIR ANOTACI 
ONES" 

540 РКІМТ "6 - GRABAR ANOTACION 
Es" 


1 
1065 LET DIAM=DIAM+VAL M$(I,12 T 


-0 13) 


1067 IF VAL A$=0 AND 1-2 THEN 1. 
ET DIAM=DIAM+1 

1068 NEXT I 

1070 LET DI=DIA1+DIAM: LET МОМ-1 
NT (DI/7): LET RED-DI-7XNOM 

1075 IF VAL A$<>0 THEN LET RED= 
RED+1 


1080 IF RED=0 THEN LET RED=7 
1090 LET RED-ABS RED: PRINT D$(R 
ED) 

1095 IF пи=0 THEN RETURN 

1100 GO TO 8000 

2000 CLS : GO SUB 9000 

2005 INPUT "MES (М PARA SALIR): 
"P$: IF P$="N" OR p$="n" THEN 
G0 TO 500 

2007 LET M=VAL P$ 

2010 INPUT "DIA: "iD 


manas sea exacto y por tanto será 
lunes (recuérdese que el 1 de enero 
del 84 fue domingo). 

Esto está bien, pero no es nues- 
tro propósito, queremos conseguir, 
dado un mes, el calendario de éste. 
Esto significa saber en qué día de la 
semana empieza el mes, lo cual a 
su vez significa obtener el número 
de días que van del 1 de enero al 1 
del mes considerado. Para resolver 
este problema optamos por la si- 
guiente solución: en una matriz 
m$(12,31) introducimos el nombre 
del mes y en el carácter 12 y 13 del 


elemento de la matriz, introduci- 
mos el nümero de días del mes 
(véase líneas 110 a 130). Ahora ya 
es fácil resolver nuestro problema. 
Imprimimos en la pantalla los me- 
ses con sus respectivos nümeros (a 
enero le corresponde 1, a febrero 
2...) y pedimos el айо y mes del 
que se quiere е1 calendario. 


(1) LET DIAM- 0: FOR I-1 TO 
MES-1 
(2) LET DIAM= DIAM + M$(1,12 
TO 13) 
(3) IF VAL А8-0 AND 1=2 THEN 


LET DIAM= DIAM +1 
(4) NEXT 1 


А8 está definida рог А$= 
“DIF/4 - INT (DIF/4)" siendo 
DIF la diferencia entre 1984 y el 
año deseado. A la luz de estas defi- 
niciones debe estar claro el propó- 
sito de la línea (3) (1067 en el pro- 
grama), para detectar si el año es 
bisiesto o no (como empezamos en 
el 1984, que 51 lo es, cada vez que 
pasen 4 años también lo será y 
VAL А5 será 0 en estos años) y еп 
el caso de que lo sea, al mes de fe- 


2015 CLS : 
RADO PARA ANOTACACION" 
2020 INFUT LINE F$ 
2030 LET LONG-LEN F$: 
М 2%: LET L(M,D)=LONG: 


PRINT FLASH 


1:"РБЕРА 3040 NEXT J: NEXT W 
3050 (ЕТ L(M,D)=0: ВЕЕР .5,7: PR 
INT #1; "УАЦЕ": PAUSE 50: GO TO 3 
LET COM=LE 000 
LET С(М,р 3500 LET BO=0: GO SUB 2500 


)=COM 3510 INPUT "М PARA SALIR: ";X$: 
2040 LET 7%-7%%Ғ% IF X$="N" OR X$="n" THEN GO TO 
2100 ВЕЕР 1,7: CLS : PRINT BRIG 500 

HT 1: FLASH 1;"ANOTADO (PULSE UN 3515 PRINT : FOR I-COM TO COM«LO 
А TECLA)": PAUSE 0: GO TO 2000: NG 

50 TO 500 3520 FRINT INVERSE 1:Z$(I);: BE 
2500 CLS : GO SUB 9000 EP .1,7 

2504 INPUT "MES(N PARA SALIR): " 3530 IF INKEY$-" " THEN INPUT 
;P$: IF P$-"N" OR P$="n" THEN G LINE R$: LET 2$=7$(1 TO 1) «R$«2$ 
0 TO 500 (1+1 TO LEN z$): GO SUB 9700: GO 
2505 LET M-VAL P$ SUB 2530: GO TO 3510 

2510 INPUT "DIA: "iD 3533 IF I=LOMG+COM AND BO=1 THEN 
2515 IF L(M,D)=0 THEN CLS : BEE LET В0=0: PRINT "+";: INPUT "S 
P 1,2: PRINT FLASH 1:"EN ESTA Е EGURO? S/N: GO SUB 9990: I 
ECHA NO HAY АМОТАСТОМ. REPITA DA F W$-"S" OR W$ THEN 80 SUB 
TOS POR FAVOR": PAUSE 150: GO TO 9500: GO TO 3510 


2500 


3555 IF CODE INKEY$-13 AND BO=0 


2520 LET LONG-L(M,D)-1: LET COM= THEN LET BO-1: PRINT "*"i: LET 

C(M,D)+1 18-1: ВЕЕР 1,7 

2530 CLS : PRINT Z$(COM TO СОМЧ. 3537 IF CODE ЇМКЕҮФ-13 AND BO=1 

ONG) THEN LET ВО=0: PRINT "#";: INPU 
2535 IF NU=S OR NU=4 THEN RETUR T "SEGURO? S/N: ": ИФ: GO SUB 999 
N О: IF W$-"S" OR W$="s" THEN GG 

2540 FRINT BRIGHT 1:51; "TERMINA SUB 9500: 60 TO 3510 


DO PULSE UNA TECLA": PAUSE O: GO 5558 IF INKEYS<>"M" THEN 60 ТО 
TO 2500 3530 

3000 GO SUB 2500 3550 NEXT 1 

3010 LET C(M,D)=0: LET 2%=7%(1 T 3560 60 TO 2510 

0 COM-1)*Z$(COM*LONG*1 TO LEN Z$ 4000 INPUT "NOMBRE DEL FICHERO: 
» "3X$ 

3015 FRINT АТ 21,0: "ESPERE UN MO 4010 SAVE X$ DATA 280): SAVE X$ 
MENTO. " DATA LO: SAVE X$ DATA CO 

3020 FOR W=M TO 12: FOR 1-1 TO 3 4020 GO TO 500 

1 4500 INPUT "NOMBRE DEL FICHERO: 
3030 IF С(Ы,20<20 THEN LET C(W, "RX$ 

9) =С (W, J) - CLONG*1) 4510 IF CODE X$=13 THEN LOAD "" 


brero (1-2) le sumamos 1 día de 
modo que tenga 29 y no 28 días. 

Cuando se han ejecutado estas 
líneas sumamos el número de días 
obtenido al número de días que 
van de 1 de enero a 1 de enero, cal- 
culamos el número de semanas 
que hay en ese intervalo y el resto 
de la división: п.° de días totales/7. 
Con esto sabemos en qué día de la 
semana comienza el mes, acaban- 
do la tediosa parte de cálculo. 

Lo siguiente es imprimir el mes 
deseado. Para ello comenzamos 
imprimiendo en inverso el mes y 
año de que se trata, y a continua- 
ción los días de la semana. Des- 


“El mes, con su número de 
días, se mete en una tabla.” 


pués definimos la variable FIN= 
VAL AS(MES,12 ТО 13) que nos 
indica la longitud del mes con la 
salvedad ya mencionada de que si 
el año es bisiesto y el mes febrero 
FIN= FIN + 1. A continuación con 
un bucle FOR 1-1 TO FIN vamos 
colocando los días uno a uno con 
la ayuda del comando AT CON- 
„СО donde CON y CO son dos va- 


riables que indican el número de 
línea (incrementándose en dos 
cada vez que CO=25) y el número 
de columna (incrementándose de 4 
en 4 hasta llegar a 25 momento en 
el cual se inicializa a 1), respecti- 
vamente. 

Para terminar con esta sección 
de programa tan sólo aclarar tres 
puntos: 

1) La variable CO debe de es- 
tar inicializada para que el primer 
día del mes caiga en el día ante- 
riormente hallado. De esta forma, 
si por ejemplo el día uno es martes, 
el resto de dividir el número de 
días entre 7 va a ser 2 y en conse- 


DATA 580): 
AD "" DATA СО: 
4520 LOAD X$ 
DATA LO: 
0 500 


LOAD "" DATA LO: LO 
GO TO 500 

DATA 5%0: 
LOAD хе DATA СО: 


І;ТАВ 4," 
LOAD X$ І 
50 T 


9000 FOR 1-1 TO 12: 


PRINT TAB 0; 
- "s TAB 8:М8(1): NEXT 


9010 RETURN 


8000 IF nu=0 THEN FOR 541 TO 12 
: LET тез=;: GO SUB 1030 

8005 CLS : РКІМТ INVERSE 1:M$(M 

ES,1 TO 11),АМО: PRINT : PRINT " 
L M х Ј У 5 D": PRI 

NT 

8010 LET FIN=VAL M$(MES,12 TO 13 
) 

8015 ЇЕ MES=2 AND VAL A$=0 THEN 
LET FIN=FIN+1 

8020 LET COs(RED-1)X4*1: 
=4: FOR Ізі TO FIN 

8023 IF L(MES,1)<>0 AND ANO=1985 
AND і<=9 THEN PRINT АТ CON,CO- 
1; "L";AT CON,CO*1; "2" 

8024 IF (.(МЕ5,1)<>0 AND ANO=1985 
AND i»-9 THEN PRINT АТ СОМ,С0- 
1; "C";AT CON,CO*2; "2" 

ВО25 IF a(mes,i)=1 AND со<>25 TH 

EN PRINT INVERSE 1;АТ соп,соҙі 
: LET co=co+4: GO TO 8050 

8030 IF со<>25 THEN PRINT АТ CO 
N,CO:I: LET CO=C0+4: GO TO 8050 
8040 IF С0=25 THEN PRINT INVER 
SE 1;АТ СОМ,25;і: LET CON=CON+2: 
LET CO=1 

8050 NEXT I 

8055 IF NU-O THEN  FRINT +1; "РО 
SE UNA TECLA (К PARA RETROCE DER 
)": PAUSE 0: IF INKEY$-"R" OR IN 
KEY$z"r" THEN LET ;ш;-2 

8057 IF nuzO THEN NEXT j 

8060 PRINT +1;"TERMINADO (PULSE 
UNA TECLA)": PAUSE О: GO TO 500 


LET CON 


9500 LET ERU-LEN Z$: LET 7%=7%(1 
TO 15)%2%(1%1 TO ERU) 


9510 LET LONG-LONG-(I-IS): LET L 
(M, 0) =LONG+1 
9515 CLS : PRINT Z$(COM TO LONG+ 


COM) 

9517 PRINT АТ 21,0; "ESPERE UN MO 

MENTO." 

ES FOR W=1 TO 12: FOR 141 TO $ 
955 О IF C(W, 220 AND C(W,J) 5C(M 
ар) THEN LET C(W,J)2C(W,J) -CI-I 
5) 

9540 NEXT J: 
9550 RETURN 
9700 LET URU=LEN R$: LET L(M,D)= 

L(M,D)-*URU: LET LONG=LONG+URU 
9705 PRINT АТ 21,0; "ESFERE UN MO 

MENTO. " 

9710 FOR W=1 TO 12: 
1 

9720 IF C(W,J)<>0 AND C(W,J) »C(M 
sD) THEN LET C(W,J) =С (MW, J) «URU 

9730 NEXT J: NEXT W 

9740 PRINT Z$(COM TO COM+LONG) 

9750 RETURN 

9990 IF W$-"N" OR W$-"n" THEN C 

LS : PRINT Z$(COM TO COM+LONG) : 

FRINT.: PRINT INVERSE 1:2$(COM 

TO IS) :: LET izis 

9995 RETURN 

9997 IF CODE INKEY$=0 THEN GO T 

О 9997 

9999 РКІМТ CODE INKEYS: 

90 


NEXT W 


FOR J=1 TO 2 


60 TO 99 


cuencia deberemos comenzar а 
imprimir en (2 — 1)x4 + 1 (el lunes 
que tiene por resto 1 lo colocamos 
en la columna 1) como se puede 
ver en la línea 8020. 

2) Cada vez que CO=25 estare- 
mos en domingo y como es fiesta 
queremos que se imprima en in- 
verso (línea 8040). 

3) Para detectar una fiesta di- 
mensionamos una matriz a(12,31) 
en la cual ponemos a 1 los elemen- 
tos que son fiesta. 

Obtener el calendario de un año 
entero se limita a añadir la línea 
8000 y 8057 que lo único que ha- 
cen es ir recorriendo el calendario 
de mes en mes. 

La segunda parte del programa 
(opciones 2, 3, 4, 5, 6) convierten 
al Spectrum en una verdadera 
agenda. Con estas opciones, podrá 
hacer anotaciones, verlas, corregir- 
las, tacharlas, grabarlas y cargarlas 
de cinta. En otros lenguajes con fi- 
сһегов, esta parte del programa es- 
taría p.&cticamente resuelta, pero 
no es así en BASIC que no se dis- 
pone de ficheros propiamente di- 
chos. Un primer modo de atacar el 
problema consistiría en definir una 
matriz de cadena en la cual cada 
elemento viniera definido por el 
mes y el día del mes en que se quie- 
re hacer la anotación. Proceder de 
este modo es inadecuado, pues en- 
tonces estamos obligados a dar una 
longitud máxima a la anotación. 
Como las anotaciones pueden te- 
ner tamaños muy distintos limita- 
ríamos muy seriamente la longitud 
máxima o desperdiciaríamos una 
gran cantidad de memoria. La so- 
lución dada al problema se puede 
dividir en dos puntos. 


1) Meter todas las anotaciones 
en una variable de cadena 75 en la 
que no hay que especificar su lon- 
gitud. 

2) Para poder localizar y leer 
cada una de las anotaciones, di- 
mensionar dos matrices L(12,31) y 
C(12,31) en la que guardar las lon- 
gitudes y comienzo de la anotación 
correspondiente al día з) en la 
matriz 7$. 

Este método tiene la ventaja de 
ahorrar una gran cantidad de me- 
moria, pero también tiene el in- 
conveniente de que los procesos de 


localización y lectura se hacen más - 


“Рага las anotaciones se uti- 
liza una variable de cadena." 


Аллама лылы aa 


complicados. Veamos cómo fun- 
ciona en un caso práctico. Supon- 
gamos que el día 1 de junio tene- 
mos un examen de física con lo 
que la anotación es: «Examen de 
física». 

Supongamos ahora que el 10 de 
marzo es el cumpleaños de una 
amiga, que llamaremos María, la 
anotación será: «Cumpleaños de 
María. Comprar regalo». 

En Z$ tendremos. 

28- «Examen de física. Cum- 
pleaños de María. Comprar rega- 
los». 

Y las matrices auxiliares ten- 
drán todos sus elementos a cero 
salvo la de los días en que se ha 
anotado algo: 

C(6,1)= 1 // L(6,1)=17 
C(3,10)=18 // L(3,18)=37 

Cuando queramos recuperar el 
mensaje de un día cualquiera me- 
teremos en el ordenador la fecha 
de este día e inmediatamente ob- 
tendremos el mensaje, en caso de 
haberlo. Para esto el ordenador de- 
fine las variables COM= C(ij), 
LONG-L(i,j), e imprime 75(СОМ 
TO COM+LONO) en pantalla. 

Este es a grandes rasgos el proce- 
so de creación de notas, desde lue- 
go falta comentar algunos detalles 
técnicos de menor importancia 
como es el hecho de que la intro- 
ducción del mensaje se hace a tra- 
vés de una variable de cadena Z$ 
mediante la cual se define L(ij) 
como: L(i,j)= LEN F$, pudiéndose 
definir entonces C(ij) según: 
C(i,j) LEN Z$, y definir por últi- 
mo Z$ como: Z$- Z$ + F$ 

La siguiente opción en el menü 
es la referida a la eliminación de 
anotaciones. Se extiende desde la 
línea 3000 a la 3050 y comienza 
haciendo. 

Z$ = 751 TO COM - 1) + 
ZS$(COM«LONG- TO LEN 75) 

Donde tanto COM como LONG 
están definidas para la anotación a 
eliminar. Una vez conseguida la 
desaparición de la anotación de- 
seada de Z$, lo que conviene hacer 
ahora es poner tanto el elemento 


de matriz C(ij) como el L(ij) a 
cero con lo que el ordenador inter- 
pretará en lo sucesivo que en el día 
definido por el mes “Ч” y el día de 
mes “j” no hay ninguna anotación. 
Осште ahora que al desaparecer 
este elemento ha quedado un hue- 
co dentro de la matriz C(ij) que 
define el comienzo de cada mensa- 
je. Para cerrarlo utilizamos el bu- 
cle de las líneas 3020 a 3040 que lo 
que hace es restar a todos los ele- 
mentos de matriz cuyo comienzo 
es superior al que hemos quitado 
la longitud del mensaje eliminado. 

Veamos esto con un ejemplo. 
Supongamos que aparte de los dos 
mensajes anteriores, tenemos un 
tercero para el día 17 de agosto que 
dice así: «Regar las plantas». Con 
lo que ahora 75 queda: 

Z$- «Examen de física. Cum- 
pleaños de María. Comprar rega- 
los. Regar las plantas». 

C(8,17)=74 // L(8,17)=18 

Si ahora suprimimos la segunda 
anotación deberemos, siguiendo el 
texto anterior, poner: 

25- 751 ТО COM - 1) + 
ZS(COM+LONG+I TO LEN Z$) 

Z$ = Z$(1 TO 18) + 7$(56 TO 
73) 

Entonces el bucle anteriormente 
citado sólo actuará sobre C(8,17) 
que quedará ahora C(17,18)= 74- 
28=46. 

Mediante la opción 5, es posible 
corregir cualquier anotación. Para 
ello, después de haber introducido 
la fecha requerida se obtendrá el 
texto a corregir. Apretando sucesi- 
vamente la «m» se obtiene letra a 
letra el texto en video Inverso. 
Cuando llegue al comienzo de una 
palabra o grupo de palabras que 
quiera suprimir pulse ENTER con 
lo que obtendrá el carácter «%, а 
continuación pulse de nuevo la 
«m» hasta llegar al final del texto a 
suprimir. Pulse de nuevo ENTER, 
obteniendo otro «&». Una vez he- 
cho esto, puede ejecutarlo teclean- 
do una «s» o cancelarlo pulsando 
una «n». Si lo que quiere es añadir 
un grupo de palabras pulse «m» 
hasta llegar al lugar donde quiera 
insertar las nuevas palabras. Pulse 
SPACE y escriba seguidamente el 
nuevo texto. 
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PASCAL 


Hasta ahora siempre hemos uti- 
lizado nuestro Spectrum para pro- 
gramar con él en BASIC, o en có- 
digo máquina, pero existen otras 
posibilidades de trabajar con otros 
lenguajes de programación, desco- 
nocidos para la mayoría. En este 
artículo vamos a tratar de introdu- 
cirnos un poco en el lenguaje РА5- 
CAL. 

Para ello trataremos de explicar 
las características esenciales de 
este lenguaje, las instrucciones más 
importantes y los diagramas de 
construcción, intentando ilustrarlo 
con pequeños programas е)етрэ. 

No pretendemos que esto sea un 
curso intensivo de PASCAL, sino 
dar una introducción para todo 
aquel que se sienta interesado en 
sacar un mayor rendimiento a su 
Spectrum, y a programar en otros 
lenguajes distintos de los habitua- 
les. 

Lo primero que debemos indicar 
al respecto, es que para poder utili- 
zar el lenguaje PASCAL, nos será 
necesario un compilador. Existen 
varios modelos en el mercado, 


cada uno con sus características es- 
peciales. Una vez en nuestro poder 
el compilador, estaremos еп соп- 
diciones de poder adentrarnos en 
el mundo del PASCAL. 


Características 
del PASCAL 


La primera versión del lenguaje 
de programación PASCAL nace 
en el año 1968, siguiendo la línea 
de los lenguajes Algol 68, y Algol 
W. El primer compilador operati- 
vo aparece en el año 1970, siendo 
publicado en 1971. 

El gran interés que provocaron 
estas publicaciones, motiva el de- 
sarrollo de otros compiladores, y 
como consecuencia la consolida- 
ción de este lenguaje. Por último, 
como iniciativa de la BCS circula- 
ron entre los años 1978 y 1980, 
cinco borradores del ».andard de 
PASCAL, consiguiéndose así su 
standarización. АЯ el PASCAL 
пасе como consecuencia del hecho 
de ir buscando lenguajes de pro- 
gramación cada vez más adecua- 
dos al usuario, dándole un lengua- 


je estructurado y de una compleji- 
dad baja. 

Las características del lenguaje 
PASCAL coinciden con las de la 
Programación Estructurada que 
son principalmente las siguientes: 

A 5 Que el programa sea secuen- 
cial. 

b) Que sea estructurado, es de- 
cir, que se pueda escribir el progra- 
ma sólo con las siguientes estruc- 
turas básicas: proceso secuencial, 
IF-THEN-ELSE, y el bucle WHI- 
LE (que serán explicadas más ade- 
lante). 

c) Que sea corto. 

d) Que esté fragmentado. Se 
intenta conseguir que el programa 
esté dividido en trozos, para su 
mejor mantenimiento y compren- 
sión. 

Una vez hecha esta breve reseña 
histórica, pasamos directamente a 
explicar las características de este 
lenguaje. 


1. Juego de caracteres 

El juego de caracteres de que se 
compone este lenguaje es el si- 
guiente: 

— Caracteres numéricos: Com- 
prenden los dígitos del 0 al 9. 

— Caracteres alfabéticos: Están 
incluidas las letras de la A a la Z. 

— Caracteres especiales: Еп 
ellos están incluidos los signos de 
puntuación y todos los tipos de 
operadores. 

La combinación de todos los ca- 
racteres indicados mediante ciertas 
reglas de formación constituye los 
elementos integrantes de un pro- 
grama PASCAL. 


2. Elementos de un programa 

El Pascal como todos los lengua- 
jes tiene sus propias palabras reser- 
vadas y distintos identificadores. 

Las palabras reservadas son 
aquellas que, como todos sabemos, 
pertenecen al vocabulario del pro- 
pio lenguaje. 

Los identificadores pueden ser 
de dos tipos: 

а) Standard: Ya declarados en 
el propio lenguaje, siendo las pro- 
pias palabras reservadas. 

b) No standard: Los crea el 
programador. Para formarlos se 
usan caracteres alfabéticos y nu- 
méricos, con la ünica regla de que 


el primer carácter deberá ser una 
letra. Por ejemplo: А14У sería co- 
rrecto, 1АВС no sería correcto рог 
ser el primer carácter un dígito. 

Los operadores de que dispone- 
mos son de tres tipos: 

a) Aritméticos: indican opera- 
ciones aritméticas. Son: 


+, —, *, /, DIV, MOD 


Donde: / indica división entre 
números reales; DIV indica divi- 
sión entre números enteros, y 
MOD calcula el resto de la divi- 
sión. 

b) De relación: Realizan ope- 
raciones de comparación entre da- 
tos. Se utilizan igual que en BA- 
SIC. Son: 


>, <,=,2,<,<>, 


с) Lógicos: Se utilizan de la 
misma forma que en BASIC, y son 
AND, OR, NOT. 

d) Para utilización de conjun- 
tos: Se verá en su momento. 


3. Estructura gramatical de un 
programa 

La estructura gramatical del 
programa y de cada una de las ins- 
trucciones que lo componen, viene 
dada por lo que se llaman los Dia- 
gramas de Conway. Veamos un 
ejemplo de cómo seguir estos dia- 
gramas: 

Mensaje 1: 


La tira de caracteres ABA es un 
mensaje correcto. En cambio la 
tira ABB no es un mensaje autori- 
zado, ya que no se puede seguir 
mediante las líneas del diagrama. 

Una vez visto el funcionamiento 
de los diagramas veamos su especi- 


ficación. Existen tres clases de sím- 
bolos: 


mS 
O 


Indica palabra 
reservada 


Indica un operador 


Hace referencia a 
otros diagramas 
sintácticos 


LA SUMA DE 345 


8842 28 EBRERAN EJEMPLO; 
ADA? 3e N=3; 
8847 ЕЭ AR B,C, SUMA: INTEG 
MA: INTEGER; 
ABSO 60 МЕРІЯ: REAL; 
Е. 3 "онно 
BBBB 90 SUMA: =A+b+C 
ABS? 109 MEDIA: =SUMA/N; 
BBSF 105 URITE(CHR(18)); 
ABAS, 112 .,URITELNI"LR ŠUMA DE 
BEP MP WRITELN аот 
ТТМЕТТСЯ ES ',MEDIR:7:3); PR 
ЙОЗЕ 148. URITELN; 
RC42 50 END. 
End Address: 8044 


2543 Y 32 ES 920 
LA MEDIA ARITMETICA ES 306,667 


Un ejemplo de esta referencia a 
otros diagramas podría ser: 


© 


-— T 


MENSAJE, Y р 


La tira АВАС se produce susti- 
tuyendo en el cuadrado el mensaje 
1 que explicamos anteriormente. 
La estructura de un programa 
PASCAL en el caso más genérico 
es la siguiente: 

PROGRAM nombre 

LABEL lista de etiquetas 

CONST declaración de constan- 
tes. 

TYPE definición de tipos. 

VAR definición de variables. 

PROCEDURE nombre del pro- 
cedimiento. 

FUNCTION nombre de 
ción. 


fun- 


BEGIN. 

Estructura del programa. 

END. 

Las únicas palabras obligatorias 
en un programa son: PROGRAM, 
BEGIN y END. Las demás depen- 
den de cada programa. Algunos 
compiladores exigen la declara- 
ción de variables obligatoriamen- 
te. 


4. Desarrollo de un programa 
Sabemos que el diagrama sintác- 
tico de un identificador es 


LETRA 


LETRA 


DIGITO 


A partir de él vamos a definir la 
sintaxis de un programa PASCAL. 


IDENTIFICADOR I— 


PARAMETROS 
PROGRAMA 


na 


PARTE DE 


DECLARACION 


DECLARACION 


H 


Y PROCEDIMIENTOS 


FUNCIONES 


—o 


H CUERPO 


Vamos a explicar el diagrama 
anterior: 


— Identificador: Será el nombre 
que le demos al programa. 


— Parámetros del programa: Su 
diagrama es 
IDENTIFICADOR 


[c 


— Parte de declaración: En ella 
Р, | se hará la declaración de las ей- 
quetas, constantes, tipos y varia- 


Normalmente los parámetros de bles según este orden. 
un programa son INPUT para lec- Ў 
tora y OUTPUT para impresora. Veamos el diagrama general: 


A consr + IDENTIFICADOR +)——{сокзтантЕ O 
rre H IDENTIFICADOR ро 


IDENTIFICADOR 


Сат T o 
На 


Examinemos ahora cada una en 
particular: 

a) LABEL 

Para declarar las etiquetas pon- 
dremos en primer lugar la palabra 
reservada LABEL, y a continua- 
ción la lista de etiquetas separadas 
por comas, Las etiquetas serán nú- 
meros enteros entre 1 y 9999. Por 
ejemplo: 


LABEL 957, 1, 32 


La utilización de las etiquetas se 
produce en la sentencia de bifurca- 
ción GO TO, pero la utilizaremos 
muy poco ya que esta instrucción 
se trata de evitar lo más posible en 
programación estructurada. 


b) CONST 


Son datos que no varían a lo lar- 
go de la ejecución del programa. 


(у mem 
C a 


|E semel d 


Ї ст 


D 722) Tips 


Lea | 
рәте 


procedmiontos 


E 


ESPECIFICAMENTE 
PARA QL Jis. 


INMEDIATAMENTE 
DISPONIBLE 


ESPECIFICACIONES 
MODELO. 

CUB 1451/DQ3 

14" QL MONITOR 
Entrada RGB-TTL 
Resolución (PIXELS) 
653 (Н) х 585 (V) 

DOT PITCH 0,43 mm 
Bandwidth 18 MHz 
Especificamente diseriadi 
рага el QL que 
aprovecha su facilidad 
ünica de 85 columnas 


78. мода. 1451/003 
P.V.P. 96.000 Ptas. 


үлү ү 
IVA POR: MULTILOGIC, Ramón de Santillán, n. 15 28016 MADRID Tel 458 74 75 


| SENT DE ENTRADA 


PASCAL 


Ejemplos de declaración son: 
CONST 
рі-3,14159; 
diasemana=7; 
©) ТҮРЕ 
Lo veremos más adelante. 


d) VAR 

Son datos que varían a lo largo 
del programa. Hay cinco tipos bá- 
sicos: 

— Епіегав: INTEGER. Para 
enteros positivos y negativos. 

— Reales: REAL. Para núme- 
ros reales, 

— Booleano: BOOLEAN. Para 
variables de tipo lógico que pue- 
den tomar dos valores TRUE o 
FALSE según se cumpla o no. 

— Carácter: CHAR. Contienen 
caracteres alfabéticos y numéricos 
y además el carácter especial blan- 
со. 

— Matriz: ARRAY. Hablare- 
mos de ello más adelante. 

Ejemplos de declaración de va- 
riables son: 

VAR 

п. alumnos aula: INTEGER; 

madrileño: BOOLEAN; 

peso: REAL; 

horario: CHAR; 

Aparte de estos cinco tipos bási- 
cos las variables podrán ser de los 
tipos definidos mediante la'decla- 
ración TYPE. 

La declaración de funciones y 
procedimientos la dejaremos para 
cuando hayamos avanzado un 
poco más. Eo único que indicare- 
mos es que tienen una función pa- 
recida a las subrutinas en BASIC. 

Vamos a explicar por último el 
cuerpo del programa. 

El diagrama del cuerpo es: 


SENTENCIAS COMPUESTAS 


siendo la sentencia compuesta: 
pum 


BEGIN 


y las posibles sentencias: 


jd 


SENTENCIA DE SALIDA 


L sentencias compuestas 


Antes de explicar el primer pro- 
grama, vamos a explicar las sen- 
tencias fundamentales: 


a) Sentencia de asignación 

Es una de las más importantes y 
a la vez más sencilla. 

Su diagrama es: 


VARIABLE 


Expresion |= 


El signo :=conviene leerlo como 
«se convierte en». 

Esta instrucción ejecuta la ex- 
presión y asigna el valor de la eje- 


cución a la variable. Sea por ejem- 
plo: 
Producto:=N1 * №2 

si, por ejemplo, NI contiene un 5, 
y N2 un 2, primero se hará el pro- 
ducto 5 * 2 = 10, y se almacenará 
en Producto, luego la variable pro- 
ducto contendrá desde ese mo- 
mento el valor 10. 

b) Sentencia de Entrada 

La entrada standard se hará me- 
diante la instrucción READ, que 
permite la lectura de un dato y su 
asignación a una variable del pro- 
grama. Su formato es: READ, 


simple Tipo 
тр 
>identificador| > 


> Constante 


© 


> Constante 


Tipo 
Identificador] 


a Y 


(datol, dato2, ...); también existe la 
opción READLN (abreviatura de 
READ LINE) en la cual, cada vez 
que se lee un dato se salta de línea 
para leer el siguiente en la siguien- 
te línea. Su formato es: READLN 
(datol, dato2, ...); veamos un 
ejemplo para la aclaración de estas 
sentencias: 
Si la entrada de datos es: 


25:47:34 
84 23 


La sentencia READ (А,В) asig- 
nará a la variable A el valor 25, y a 
la variable B el valor 4. Por otra 
parte, la sentencia READLN 
(A,B), asignará a la variable A el 
valor 25, y a la variable B el valor 
84. 


с) Sentencia de salida 
La salida standard se hará me- 
diante la instrucción WRITE. Se 


utiliza igual que la instrucción 
PRINT en BASIC, Sólo permite la 
escritura de valores numéricos de 
las variables. Si queremos incluir 
en la sentencia un literal, éste de- 
Бега ir encerrado entre comilla (). 
Su formato es WRITE (resultadol, 
resultado2, ...); si queremos escri- 
bir por líneas usaremos la opción 
WRITELN. 

Vamos a ver la diferencia entre 
WRITE y WRITELN mediante 
dos pequeños programas. Prueba 
estos programas y observa la dife- 
rencia en las salidas: 


PROGRAM Saludo; 

BEGIN 

WRITE (Esto se escribirá en 
una línea”) 

END. 

PROGRAM Saludo2; 

BEGIN 

WRITELN (Esto se escribirá"); 


WRITELN (“Еп dos líneas") 
END. 


La utilización de WRITELN sin 
parámetros producirá una línea en 
blanco. Prueba a incluir otra ins- 
trucción WRITELN en medio de 
las dos sentencias de escritura de 
Saludo2. 

Por último existe otra opción en 
la sentencia de escritura, y es indi- 
carle al ordenador la limitación de 
caracteres de la salida. 

Su formato es: WRITE (resulta- 
do:e: e); 
siendo «e» el n.° de caracteres con 
que queremos escribir el resultado. 
Cuando vayamos a escribir un nú- 
mero decimal, podemos indicar 
también mediante la opción е, 
cuántos decimales queremos que 
salgan escritos, es decir, de los «e» 
caracteres que se escribirán, «ej» 
estarán detrás del punto decimal. 


Término 


y 


Término 


|dantificador 


»| Expresión | 


variable 


9 О @ 


Factor Y 


[Constante 


E 


ІТ 
constante 


Número sin 
signo 


+ Identificador 


y 


sin signo 
=) 


constante 


Número sin 


> Variable 


Función 
identificador 


Número sin 


ЕЕЕ) 


Factor 


Ф 


signo 


Para estas navidades no se lo уа- 
mos a poner muy dificil. Empeza- 
mos con dos dimensiones... pero le 
prometemos las cuatro para un 
próximo nümero. 

Nueve niveles de dificultad le 
permiten elegir la modalidad de 
juego más acorde con la compleji- 
dad de sus neuronas. Y no lo tome 
a broma, para salir airoso del nivel 
nueve necesitará bastante habili- 
dad y no menos destreza. 

Elegido el nivel aparecerá en la 
pantalla un cuadro de 400 casillas 
(20 x 20). El ordenador comenzará 
a cambiar el modo de impresión de 
las casillas aleatoriamente: nor- 
mal, inverso, normal, etc, A mayor 
nivel elegido, mayor será el núme- 
ro de inversiones realizadas (la 


combinación resultante después de 
elegir el nivel 9, no es apta para 
cardíacos). 

Para ganar el juego, ha de lograr 
que todas las casillas estén en blan- 
co, es decir, que todas estén en 
modo normal y ninguna en inver- 
so. Para ello, en cada jugada ha de 
dar la posición de una casilla refe- 
renciada por sus coordenadas, pri- 
mero la columna y después la fila. 
Comprobará que esta casilla, y to- 
das las que se encuentran a su alre- 
dedor, cambian del modo normal 
al inverso o al contrario, según la 
situación en que se encontrasen. 
&На comprendido el funciona- 
miento? Le aseguramos que es po- 
sible ganar, pero no le decimos en 
el nivel que lo logramos. 


«Ejemplo dela 
representación en 

rant 

әлімі2». 


5 POKE 25658,8: REM Mayuscul 


аз 


6 LET goes=0 

7 PAPER 1: BORDER 1: INK 7: C 
(5 

в 60 TO 22 

10 CLS : FOR 4-0 TO 7: PRINT 
PAPER +; INK 9;TAB f; "PUZZLE": N 
EXT + 

20 FOR +=7 ТО О STEP -1: FRINT 

PAPER f; INK 9; TAB 4;"РО721Е"4 
NEXT + 

21 RETURN 

22 60 SUB 10: PRINT АТ 20,0;"I 
nstrucciones s/n." 

24 IF INKEY$4»"S" AND INKEY$«? 
"N" THEN GO TO 24 

26 IF INKEY$="S" THEN 60 SUB 
6000: REM instruccciones 

30 GO SUB 10: PRINT &1:"Dificu 
ltad (1 TO 9) ?" 

35 LET d$-INKEY$: IF d$-"" THE 
м 60 TO 55 

40 IF d$<"1" OR d$>"9" THEN б 
О TO 3S 

45 LET dizINT VAL d$ 

50 LET 91=91%10 

70 60 SUB 1000: REM dibujar ta 
blero. 

ВО LET погч400: LET inv=0 

90 60 SUB 3000: REM Mane;o tab 
lero. 

100 REM Tablero. 

105 LET goes-zgoes*l 

107 PRINT 4 15 АТ 0,0; "Movimiento 
"sgoes 

110 INPUT АТ 1,1;" Letra y nume 
ro "y LINE m$: IF LEN m$>3 OR LE 
М МФ<2 THEN 60 TO 110 

120 LET 1%=т%(1): LET m$-m$(2 Т 
О ): IF 1%<"А" OR 1$>"Т" THEN G 
O TO 110 

130 IF т<" 
O TO 110 


"Окт 


"9" THEN 6G 


@ 


140 LET x=CODE 18-63: LET y=VAL 
m$ 
150 GO SUB 2000: REM cambiar ра 
ntalla. 

160 IF NOR=400 OR INV=400 THEN 
GO TO 5000: REM Completado. 

170 60 TO 100 
1000 REM Pantalla. 
1001 CLS : INK О 
1005 PRINT PAPER 6;" 
JKLMNOFGRST " 
1010 FOR f=1 TO 20 
1015 IF f410 THEN PRINT РАРЕК 
буи; 
1020 РКІМТ РАРЕК 6;+; PAPER 7;" 
CREER ERR ERR RE PAPER 6,4 
$: IF Fx10 THEN PRINT PAPER 6; 
1025 PRINT 
1050 МЕХТ 4 
1040 РКІМТ РАРЕК ё; " 
JKLMNOPGRST " 
1045 ІМК 7 
1050 RETURN 
2000 КЕМ Cambiar pantalla. 
2020 IF ATTR (у, х) =56 THEN PRIN 
T AT у,х; INK 7; РАРЕК О 1 LE 
T іпу=іпу+1: LET nor=nor— 50 T 
0 2030 
2025 IF ATTR (y,x)<>48 THEN PRI 
NT АТ y,xs INK О; PAPER 7;"*": L 
ET пог=пог+1: LET іпу=і пу-1 
2030 IF ATTR (y,x+1)=56 THEN РК 
INT AT y,x+13 INK 7; PAPER Op"+" 
: LET 1пу=1пу+1: LET norznor-1: 
60 TO 2040 
2035 IF ATTR (y,x*1)4248 THEN Р 
RINT AT y,x*1; INK О; PAPER 7;"+ 
"3 LET norznor*1: LET invsinv-1 
2040 IF ATTR (y,x-1)=56 THEN FR 
INT АТ y,x-1; INK 7; PAPER О;"+" 
: ШЕТ invzinv*1: LET norznor-i: 
60 TO 2050 
2045 IF ATTR (y,x-1)<>48 THEN Р 
RINT AT y,x-1; INK 0; PAPER 7;"+ 
“s LET norznor*ti: LET inv=inv-1 
2050 IF ATTR (y+1,x)=56 THEN FR 
INT AT y*ti,x: INE 7; PAPER Ор"»" 
: ШЕТ іпу=іпу+1: LET nor-nor-1: 
50 TO 2060 
2055 IF ATTR (y+1,x)<>48 THEN Р 
RINT AT y*i,x; INK О; PAPER 7;"+ 
": LET norznor*i: LET 1пу=1пу-1 
2060 IF ATTR (y-1,x)=56 THEN PR 
INT AT у-і,х; INK 7; PAPER Оз "+" 

LET in пу+1: LET nor-nor-1: 


ABCDEFGHI 


ABCDEFGHI 


| 


60 Т0 2070 
2065 IF АТТК (у-1,х)<>48 THEN Р 
RINT АТ у-1,х; INK О; PAPER 7;"+ 
": LET mor=nor+1: LET іпмшіпм-і 
2070 ЇЕ АТТК (y-1,x-1)=56 THEN 
PRINT АТ у-1,х-1; INK 7; PAPER O 
"+": LET 1пу=1пу+1: LET nor=nor 
-1: 60 TO 2080 
2075 1F ATTR (y-1,x-1)<>48 THEN 
РКІМТ АТ у-1,х-1; INK 0; PAPER 
744%": LET nor=mor+1: LET inv=in 
voi 
2080 IF ATTR (y+1,x-1)=56 THEN 
PRINT АТ у+1,х-1; INK 7; PAPER O 
}"+": LET inv=inv+1: LET nor=nor 
: 80 TO 2090 Ё 
2085 ЇЕ ATTR (y+1,x-1)<>48 THEN 
PRINT АТ у+1,х-1; ЇМК О; PAPER 
7;"+": LET пог=пог+1: LET іпу=іп 


ке 

2090 IF АТТК (y+1,x+1)=56 THEN 

PRINT АТ у+1,х+1; INK 7; PAPER O 
"+": LET inv=inv+1: LET nor=nor 

-1: 60 TO 2100 

2095 IF ATTR (y+1,x+1)<>48 THEN 
PRINT AT у+1,х+1; ЇМК О; PAPER 
7;"+": LET поғшпогжі: LET іпушіп 

v=1 

2100 ЇЕ ATTR (y-1,x+1)=56 THEN 

PRINT АТ у-1,х+1; INK 7; PAPER O 
"+": LET inv=inv+1: LET nor=nor 

-1: 60 TO 2110 e 
2105 IF ATTR (y-1,x+1)<>48 THEN 
PRINT AT y-1,x*1; INK 03 PAPER 
74%"; LET пог=пог+1: LET inv=in 

y=1 

2110 RETURN 

3000 REM Jugada. 

3010 FOR f=1 TO di 

3020 LET x=INT (RNDX20)*2: 
=INT (RNDX20)-*1 

3030 60 SUB 2000 

3040 NEXT + 

3050 RETURN 

5000 REM Completado 

5010 FOR +=0 ТО ЗО STEP .5 
5020 ВЕЕР .003,4: ВЕЕР .003,f+10 
5050 NEXT + 
5040 CLS : 
PAPER 5; 
elente!'"; 
$ otra? 
5045 PRINT АТ 12,4;"Necesitaste 

"s FLASH 1:goes; FLASH О" inten 


LET. y 


PRINT AT 10,3; INK 7; 
FLASH 1; BRIGHT 1;"Exc 
PRINT AT 15,0;"Echamo 


So 

5060 
5070 
5999 
6000 
6010 


6020 
6030 
" 

6040 


on del cubo 
ensiones. 


Е1 


IF ІМКЕҮФ= 
STOP 

REM instrucciones 

св 

PRINT ТАВ ©9;"ЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


"THEN. "GO-TO T 


РКІМТ TAB 9; "ж PUZZLE * 


PRINT ТАВ 9; "жжжжжжжкжжжжжж 


РКІМТ '"PUZZLE es una versi 
de Rubic en dos dim 
El tablero es de 20%20 


Брес- trum seleccionara d 


istintas po- siciones aleatoriam 


ente 


в siete casi-llas vecinas. 
proceso se 


y la in-vierte junto con la 
Este 
repite una serie de 


veces segun el nivel de dificul 


tad." 


6050 


6060 FOR ізі TO 5: 


PRINT *"Su unico "i 
PRINT CHR$ 8; 


1 NEXT i 


6070 PRINT OVER 1;" 3 


OVE 


R 0%" trabajo es dejar el ta-ble 


ro en su estado original, 


esdeci 


r, blanco." 


6080 PRINT AT 20,5; 


FLASH 1;"Pre 


sione cualquier tecla para con 
tinuar" 
6090 IF INKEY$-"" THEN ВЕЕР .1, 


10: GO TO 6090 


6100 FOR iz1 TO 20: 
EXT i 


ВЕЕР .1,1: М 


6110 RETURN 


Leyend: 

Líneas 30-50 Introducción nivel de dificultad. La 
variable «d» se multiplica por 10 y el 
valor resultante es el número mínimo 
de intentos para ganar el juego. 

Líneas 70-90 Dibujo de las 2. (Subrutina 
1000) y realización de inversiones se- 
gún el nivel БИД (Subrutina 3000). 

Líneas 100-170 Bucle principal. Se incrementa el con- 


zado. 
Lineas 1000-1050 кшш 15 impresión de las casillas 
Líneas 2000-2105 Rutina. ошо Че la casilla elegida 


o entre líneas 


tador de jugadas, entrada de datos y 
verificación de su validez, La línea 
140 calcula la posición de la casilla y 
la 160 comprueba si el juego ha finali- 


inici 


adyacentes. 


Lineas 2110-3050 kutra de inversión aleatoria utilizada 


al inicio del j E БЕ número de іп- 


о Hogramas 
ало шаах 


de IBM еп Barcelona. 


Ultimamente las agencias matri- 
moniales parecen estar de moda. 
Muchas de ellas quizá trabajan con 
un programa similar al que ofrece- 
mos a continuación, que sin em- 
bargo no fue ideado para "buscar" 
al compañero ideal, sino para pa- 
sar un buen rato. Así nos lo decía 
su autor, Carlos Quintana, director 
de marketing de IBM en Barcelo- 
na: “Con cierta frecuencia nos reu- 
nimos un grupo de amigos a cenar 
y queria enseñarles mi nuevo orde- 
nador con algún programa de cier- 
ta gracia. Así nació este programa, 
con las sugerencias de mi mujer y 
mi cuñada. А veces lo probamos 
con una o dos parejas, pero no tie- 
ne gracia. El límite es de diez por 
la presentación en pantalla, pero 
más de ocho resulta un poco lento. 
Puedo asegurar que funciona, ya 
que generalmente salen personas 
compatibles, aunque no siempre 
concuerda con los matrimonios”. 


No pudimos resistir la tentación han comprado el Sinclair, sobre todo para meterse dentro de la ma- 
de preguntarle el por qué un ven- рага el Spectrum. “No he sido sólo quinaria y ver sus posibilidades. 
dedor de IBM había decidido com- уо. Compañeros míos en IBM se Yo aprendí a programar en Cobol, 


Nar. N SUSCRIBASE | 
WI \_ POR TELEFONO | 
| Di" * más fácil, | 
e * más cómodo, | 

ж más rápido | 
Telf. (91) 733 79 69 | 


7 días рог semana, 24 horas a su servicio | 


Assembler y RP6, lenguajes que fue hacer el curso de la empresa de compré por los chicos y el por qué 
entonces estaban de moda, pero 15 días, unas prácticas y listos. Lo Sinclair se debe al bajo precio”. 


Las instrucciones REM (comen- 
tarios), están en catalán. “Lo tenía 
hecho en catalán, y lo pasé al cas- 
tellano para su publicación... pero 
olvidé los comentarios”. 

Entrando en la descripción del 
programa, clasifica y empareja de 
acuerdo con las variables descritas 
en las líneas 60 a 200 según su 
ponderación de importancia de 1а 
5, tal y como se explican por pan- 
talla. Obviamente, puede ampliar 
o cambiar el número de variables. 

Reúnase con sus amigos y adivi- 
ne si su chico(a) favorito(a) es real- 
mente quien más le conviene. Qui- 
zá muy cerca de usted está su “me- 
dia naranja”... ¡Y usted sin ente- 
rarse! 


Autor: Carlos Quintana 48K 


WORLD-MICRO LE ENTREGA EL 


Sn 


World- Micro sa. 


) Avda. Mediterráneo, 7 
Tels. 251 12 00 12 09 


} 28007 MADRID 


30 LET с=15 
40 LET 11-0 
41 PRINT AT 5, 12; "PAREJAS"¡AT 
6,12," "y PRINT АТ 
10, 10; C. Quintana" 
50 DIM c$(c,14) 
60 LET c$(1)="LECTURA" 
70 LET c$(2)="VIDA SOCIAL" 
ВО LET c$(3)="VIDA FAMILIAR" 
90 LET c$(4)="DEPORTE" 
100 LET c$(5)="BUENA COMIDA" 
110 LET c$(6)="VIDA SEXUAL" 
120 LET c$(7)="VIAJES" 
130 LET с%(8) &" RELIGION" 
140 LET c$(9)="JUERGA" 
150 LET c$(10) -"BAILE" 
160 LET c$(11)2"TRABAJO" 
170 LET c$(12)="AHORRO" 
180 LET c$(13)="0RDENADO" 
190 LET c$(14)="DETALLISTA" 
200 LET c$(15)="TELEVISION" 
210 DIM c(15) 
220 LET c(1)=0 
230 LET c(2)=1 
240 LET c (3021 
250 LET c(4)=0 
260 LET с (5) =0 
270 LET с (6) =2 
280 LET c (7) =1 
290 LET c(8)=2 
300 LET c(9)=1 
310 LET c(10)=0 
320 LET c (110-2 
330 LET c (12)22 
340 LET c (13221 
350 LET c (14)21 
360 LET c(15)=0 
370 PAUSE 200: CLS 
380 PRINT АТ 5, 1; "ENTRAR NUMERO 
DE PARTICIPANTES" 
390 PRINT АТ 8,3; "HOMBRES = 7?" 
400 G0 SUB 3330 
410 LET h=VAL ws 
420 IF h>9 THEN PRINT АТ 10,2; 
FLASH 1; "MAXIMO 9": ВЕЕР 1,-11: 
PAUSE 30: PRINT AT 10,3;" 
"1 60 TO 400 
430 PRINT AT 8,13;h 
440 DIM h$(h,12) 
450 PRINT AT 8,18; "MUJERES = ?" 
450 GO SUB 3330 
470 LET m=VAL ws 
480 IF m>9 THEN PRINT АТ 10,18 


3 FLASH 1;"MAXIMO 9": ВЕЕР 1,-11 
: PAUSE 40: FRINT АТ 10,184" 
": 60 TO 460 

490 PRINT AT 8,28:m 

500 DIM m$(m, 12) 

510 PAUSE 100 

520 CLS 

530 PRINT AT 3,1; "NOMBRES DE LO 
S HOMBRES" 

540 FOR x=1 TO h 5 

550 PRINT AT 5+х,5;х;" = т" 

560 INPUT LINE w$ 

570 60 SUB 3400 

580 LET h$(x)=9w$ 

590 IF x=1 THEN 60 TO 650 

600 FOR w=1 TO x-1 

610 IF h$(w<>h$(x) THEN GO TO 
640 

620 ВЕЕР 1,-11: PRINT АТ 5+х,9; 
FLASH 1; "NOMBRE REPETIDO" 

630 60 ТО 560 

640 NEXT w 

650 FRINT АТ S+x,95h$(x) 

660 NEXT x 

670 PAUSE 100 

680 CLS 

690 PRINT АТ 3,1;"NOMBRES DE LA 
S MUJERES" 

700 FOR x=1 TO m 

710 PRINT АТ 5+x,5;x;" = 2" 

720 INFUT LINE w$ 

730 GO SUB 3400 

740 LET m$ (x)=w8 

750 IF x=1 THEN 60 TO 810 

760 FOR w=1 TO х-і 

770 IF m$(w)<>m$(x) THEN 50 TO 
воо 

780 ВЕЕР 1,-11: РКЇМТ АТ 5+х,9; 
FLASH 1; "NOMBRE REPETIDO" 

790 GO TO 720 

800 NEXT w 

810 PRINT АТ 59х,97:08(х) 

820 NEXT х 

ВЗО PAUSE 100 

840 PRINT АТ 3,1; "CARACTERISTIC 
AS A VALORAR" 

850 FOR x=1 TO с 

860 PRINT АТ 44х,5-(х29)ү:х1".-" 
12$ GO 

870 NEXT х 

880 PRINT АТ 21,1; "ENTRA -1- РА 
ке CONTINUAR" 

890 INPUT LINE w$ 


900 CLS 

910 PRINT АТ 0,0 
ACTERISTICA INDICAI 
920 PRINT АТ 5,4;"1 = INTERES М 
ULO";AT 8,4;"2 = POCO ІМТЕКЕЅ"; А 
T 10,43"3 = NORMAL" 
BASTANTE INTERES 
MUCHO INTERES" 
930 PRINT АТ 21,1; "ЕМТКА -1- РА 
RA CONTINUAR" 

940 INFUT LINE w$ 

950 CLS 

960 DIM b(h,c) 

970 FOR x=1 TO h 


"ава CADA CAR 


980 PRINT AT 3,3; "PREFERENCIAS 
DE ";һ%(х) 

990 FOR у=1 TO с 

1000 PRINT AT 4+у,5;с$(у);" = 2" 


1010 60 SUB 3270 

1020 LET b(x,y)=VAL w$ 
1030 PRINT АТ 4+y,22;b(x,y) 
1040 NEXT y 


Hogamas 


1050 CLS 

1060 NEXT x 

1070 CLS 

1080 DIM v(m,c) 

1090 FOR x-1 TO m 

1100 PRINT AT 3,3: "PREFERENCIAS 


DE "ҙтФ(х» 
1110 FOR y=1 TO c 
1120 PRINT АТ 4-y,5;:c$(y); " = 7" 


1130 GO SUB 3270 

1140 LET v(x,y)=VAL w$ 
1150 PRINT AT 4+y,223v Gu, y) 
1160 PRINT АТ 4*y,22:v Gc, y) 
1170 NEXT y 

1180 CLS 

1190 NEXT x 

1200 DIM d(h,m) 

1210 DIM i(m,h) 

1220 DIM t(h,m 

1230 LET tc=343.56 

1240 FOR x=1 TO h 


1250 PRINT АТ 2, (221 


ANUNCIESE 
por 


MODULOS 


MADRID 
(91) 73396 62 


BARCELONA 
(93) 3014700 


| 


SI TE INTERESA LA 
ELECTRONICA 


ПЕ 


Resuelve los problemas de: 
Diseño de filtros 
Análisis de redes 
Comunicaciones por 
ionosfera y por satélite 
Antenas y acopladores 
Lineas de transmision 
Bobinas y transformadores 
Interferencias etc. 
Con mas de 100 PROGRAMAS 
TECNICOS, perfectamente 
documentados en castellano, 
con ejemplos practicos. 


Operativos en ordenadores: 
HEWLETT PACKARD serie 200 
ZX Spectrum 48K 
Consultar para otros 


Asistencia técnica post venta = 
Pide información а: 


SUFTRONIEA 5.50 


C/José Abascal, Tel. (91) 441 38 46 
MADRID 28003 (91) 450 18 24 


Ч 


D 


"Hearawas @ 


1260 FOR y=1 TO m 
1270 PRINT AT 2,12;у 
1280 FOR z=1 70 с 
1290 (ЕТ d(x,y) ed GG y) *CO (mz) 
vG/,2)) X C140. 2XcC C22) 2 XCCb Gc, z) v 
(y,2)) (140. 2Жс (233) 

1300 NEXT = 

1310 LET d(x,y)=INT d(x,y)+y/10 
1320 LET i(y,x)7INT d(x, y)+x/10 
1330 LET t(x,y)=INT (((tc-d(x,y) 
)/tc)kx100) 

1340 NEXT y 

1350 NEXT х 

1360 DIM 
1370 LET 
1380 FOR 
1390 FOR 
1400 LET 
1410 LET 
1420 NEXT y 

1430 NEXT x 

1440 CLS 

1450 FOR 241 TO h 

1460 FOR x=1 TO m-1 
1470 FOR yzx*1 TO m 
1480 IF d(z x0 d(z,y) 
0 1520 

1490 LET ezd(z,x) 

1500 LET d(z,x)-d(z,y) 
1510 LET d(z,y)-e 
1520 NEXT y 

1550 NEXT x 

1540 NEXT z 

1550 FOR 2-1 TO m 
1560 FOR x=1 TO h-1 
1570 FOR у=х+і TO h 
1580 IF i(z,x)<i(z,y) 
О 1620 

1590 LET е=і (2,х) 

1600 LET і(2,х) =і (2,у) 
1610 ШЕТ i(z,y)=e 
NEXT y 

NEXT х 

NEXT z 

(518: 

PRINT АТ 3,1; "ESCOGER ENTRE 


іт 


xh)? 


TO h 
TO m 
Ded Gr y) +x/100 


E es 


рс 
k= 
x= 
y= 
pik 
k= 
THEN 60 T 


THEN GO T 


1670 FRINT AT 6,4;"1. PREFERENCI 
AS DE CADA UNO";AT 8,4; "2. VER L 
AS DE UN HOMBRE T 10,4:"3. VER 
LAS DE UNA МОЈЕ 
1680 РКІМТ AT 12,43"4. SELECCION 
DE PAREJAS" 


1690 PRINT АТ 14, 4; "5. CLASIFICA 

CION DE HOMBRES"¿AT 16,4:"6. CLA 
SIFICACION DE MUJERES" 

1700 INPUT LINE w$ 

1710 IF w$«"1" OR w$>"6" THEN б р 
0 Т0 1700 

1720 LET r-VAL w$ 1 
1730 CLS 

1740 IF r=1 THEN 60 TO 1800 | 
1750 IF r=2 THEN 60 TO 1870 H 
1760 IF r=3 THEN 50 TO 1940 

1770 IF r=4 THEN 60 TO 2010 

1780 IF r=5 THEN БО TO 2030 

1790 60 TO 2040 

1800 FOR x=1 TO h 

1810 GO SUB 2050 

1820 NEXT x 

1830 FOR x=1 TO m 


1840 
1850 
1860 


1940 
1950 
MUJER = ?" 

INPUT LINE ws 

IF w$z"1" OR w$2STR$ m THEN 


AT 5, 
2070 
2080 


OG y)7INT dGc,y)) X10); 
‚ (dix, y) -INT d(x,y)) X10); TAB 
" 


2090 
2100 


GO SUB 2150 

МЕХТ х 

60 ТО 2210 

CLS 

FRINT АТ 3,3; "NUMERO DEL HO 
=?" 

INFUT LINE w$ 

IF w$C"1" OR w$>STR$ h THEN 
Т0 1890 

LET x=VAL w$ 

60 SUE 2050 

60 TO 1660 
CLS 

ЕКІМІ АТ 3 


"NUMERO DE LA 


TO 1960 

LET x=VAL w$ 
60 SUB 2130 
60 TO 1660 
CLS 
50 то 
60 TO 
GO TO 
св 
PRINT АТ 2,1;"РАКА "¿nec 
1; "LAS PREFERIDAS SON :" 
FOR y=1 ТО т 
PRINT АТ &+у, 


2210 
2670 
2910 


"sms (Cd 
ТАВ 15:86 


NEXT y 
50 SUB 2170 


ІШІ 


! 


D 


2140 FRINT АТ 2,1; "FARA ";т%(х); 
АТ 5,15"105 PREFERIDOS SON :" 
2150 FOR y=1 ТОН 

2160 PRINT АТ 6+y,33y3" . "¿hs(t 
i (х,у)-1МТ i(x,y))Kk10)¿TAB 193t( 
GGG, y) -CINT iG y)) X10,x) : TAB. 22 
pnt 

2170 NEXT y 

2180 60 SUB 3170 

2190 CLS 

2200 RETURN 

2210 PRINT АТ 3,5; FAREJAS SELEC 
CIONADAS" 

2220 FÜR x=1 TO mkh-1 

2230 PRINT АТ 10,12:x$; "/"smXh—-1 
2240 FOR у=х+1 TO mxh 

2250 IF р(х)<р(у) THEN 60 TO 22 
90 

2260 LET е=р (х) 

2270 LET p(x)=p (y) 

2280 LET p(y)=e 

2290 NEXT y 

2300 NEXT x 

2310 DIM ath) 

2320 PRINT АТ 4,5; " 

DIM gm) 

LET s-m 

IF hím THEN LET s=h 

LET у=1 

FOR k=1 TO s 

FOR x=y TO mxh 

2390 PRINT АТ 14,123x3"/"¿mkh-1 
IF kzi THEN 60 TO 2470 
2410 FOR 1-1 TO k-1 

2420 IF ІМТ (10Ж(р(х)-1МТ p(x))) 
=g(1) THEN NEXT x 

2430 NEXT 1 

2440 FOR z=1 TO k-1 

2450 IF INT (0.0001+100Xp (x)-10k 
INT (10XpG0))sa(z) THEN NEXT x 
2460 NEXT z 

2470 LET g(k) INT 
poD092) 

2480 LET a(k)-INT (0.0001%(100жр 
{х))-1ОЖТМТ (10kp(x))) 

2490 LET yzx*1 

2500 NEXT К 

2510 CLS 

2520 PRINT АТ 5,5; "PAREJAS БЕЛЕС 


(10Ж (p CX) - INT 


CIONADAS";AT 4,5;" 
" 


2530 FOR k=1 TO в 

2540 PRINT АТ 5+2*k,13h$(a(k));m 
$g(k))gt(a(k),gC(K)); TAB 28; "A" 
2550 NEXT k 

2560 IF h-m THEN GO TO 2660 
2570 PRINT AT 7*2Xk,0; "QUEDAN SI 
М APAREJAR: " 

2580 IF hím THEN GO TO 2630 
2590 FOR x=s+1 TO h 

2600 PRINT AT 8*2Xk*x-5,21: h$ CIN 
T (0.0001%(100Жр(х))-10ЖІМТ (10% 
р(х)))) 

2610 МЕХТ х 

2620 60 ТО 2660 

2630 FOR x=s+1 TO m 

2640 PRINT АТ 8+2Xk+x-85, 21; т$ (ІМ 
T (10X(p GO-INT p(x)))) 

2650 NEXT x 

2660 60 SUB 3170 

2670 CLS 

2680 DIM sth) 

2690 PRINT АТ 1,2; "CLASIFICACION 
DE LOS HOMBRES";AT 3,4; "РОК SU 
АСЕРТАСІОМ ENTRE"; АТ 5,10:"LAS M 

UJERES" 

2700 FOR x=1 TO h 

2710 PRINT АТ 10,14:х:"/" 48 

2720 FOR y=1 TO m 

2730 LET s(x)=s(x)+t(x,y) 

2740 NEXT y 

2750 LET s(x)=INT s0-*x«/10 
2760 NEXT x 

2770 РОК xz1 TO h-1 

2780 FOR y=x+1 TO h 

2790 IF s(x)>s(y) THEN 60 TO 28 
30 

2800 LET e=s(x) 

2810 LET s(x)=s(y) 

2820 LET s(y)=e 

2830 NEXT y 

2840 NEXT x 

2850 DIM f(h) 

2860 FOR ха1 TO h 

2870 LET + (x)=10k(s(x)-INT s(x)) 
2880 PRINT АТ 9+x,53x3TAB 73h$(4 
(м)›)$1МТ (504) Ит) 1" 4" 

2890 NEXT x 

2900 60 SUB 3170 

2910 CLS 

2920 DIM w(m) 

2930 PRINT АТ 1,2; "CLASIFICACION 


Heogramas 


DE LAS MUJERES"; АТ 5,4; "POR SU 
ACEPTACION ENTRE"; АТ 5,10; "LOS H 
OMBRES" 

2940 FOR x=1 TO т 

2950 PRINT АТ 10,14:х:"/"ут 

2960 FOR y=1 TO h 

2970 LET w(x)zw(x)*t(y,x) 

2980 NEXT y 

2990 LET w(x)=INT w(x)+x/10 

3000 NEXT x 

3010 FOR x=1 TO m-1 

3020 FOR y=x+1 TO m 

3030 IF w(x)>w(y) THEN GO TO 30 


3040 LET e=w(x) 
3050 LET w(x)=0w(y) 

3060 LET w(y)=e 

3070 NEXT y 

3080 NEXT x 

3090 DIM ;(m) 

3100 FOR x=1 TO m 

3110 LET j(x)=10%*(w(x)-INT w(x)) 
3120 PRINT AT 9+х ¿TAB 7;1$ (3 
ООЭ INT. (w0:)/h); 
3130 NEXT x 

3140 LET 11=1 
3150 60 SUB 2170 
3160 60 TO 3450 
3170 PRINT AT 20,0; "ENTRA-1-PARA 
CONTINUAR";AT 21,5;"-2-РАКА VOL 
VER A ESCOGER" 
3180 IF 11-1 THEN 
3; "ACABAR |" 
3190 LET 11=0 
3200 INPUT LINE w$ 


PRINT AT 20,1 


3210 ЇЕ w$<"1" OR w$>"2" THEN б 

O TO 3200 

$220 LET mm=VAL w$ 

3230 CLS 

3240 IF mm=2 THEN 60 TO 1660 

3250 RETURN 

5260 REM Entrada de valors 1 а 5 

3270 INPUT LINE w$ 

3280 IF w$-"fi" THEN 60 TO 3450 

3290 IF LEN w$>1 THEN ВЕЕР 1,-1 

1: GO TO 3270 

3300 IF и%<"1" OR w$>"5" THEN E 

ЕЕР 1,-11: GO TO 3270 

3310 RETURN 

3320 REM Comprovacio del caracte 

r numeric d'un numero. 

3330 INPUT LINE w$ 

3340 IF w$-"fi" THEN 60 TO 3450 
5550 FOR w=1 TO LEN w$ 

3360 IF w$(w)<"0" OR w$(w)>"9" Т 
НЕМ ВЕЕР 1,-11: 50 ТО 3330 

3370 NEXT в 

3380 RETURN 

3390 REM Rutina de transformacio 
a majusculas 

3400 FOR w=1 TO LEN w$ 

3410 IF w$(w<"a" OR w$(w>"z" Т 
НЕМ 60 TO 3430 

3420 LET w$(w)-CHR$ ((CODE ИФ (м) 
)-32) 

5450 NEXT м , 

3440 RETURN 

5450 PRINT АТ 10,13;"ADIOS" 

3460 STOP 

9900 60 TO 1 


GUSANEZ Me M 


POBRECILLO, YA LE 
A VUELTO A DAR 


© 


¿Se acuerda de aquellas primeras máquinas que irrumpieron sú- 
bitamente en todas las cafeterías, y con las que se realizaban autén- 
ticos torneos de tenis? Apenas se podría adivinar que era sólo el co- 
mienzo y que hoy sólo tiene que conectar su Spectrum para revivir 
aquellos tiempos. Este programa es para dos jugadores, y preste 
atención a las instrucciones, porque nada se indica por pantalla: la 
y la raqueta amarilla 


"NS 


raqueta azul se maneja con la 


y la “z” 


mediante el *1" y "symbol shift". 
Autor: Jordi Masana 16K 
ABCDEFGHIJKLMNOPORSTU 9,4-4) THEN, LET ha-h: BEEP 11,15 
+ 
@BCDEFGHIJKLMNOPORSTU s AND def) THEN LET hs-h-i: BEEP 
$9 49-555 1999 310 IF (а-1а5 АМО өші) OR (с-іш 
CORDES ИДЕНРЕВСФ ЖЕСЕ $ BND del) THEN LET һа-һ-1: BEEP 
БЕ кеш e Гараг 388 IF f>28 THEN BEEP .1,1: GO 
AS Т$з@ тк r«a THEN ВЕЕР 11,1: GO T 
78 FOR ізд 31 o 120 ХӘЛІН Dar 
НД ызалы 348 IF h=-3 THEN LET һ=һ+1 
Кыл, Ин 
82 PRINT AT 21,1; INK 6; PAPE а жэл 
а ТАЛЫН AT 21,16, Q | (508 бото 280, 
J. МАЗАМЯ di * "a" Ч 
дә ГЕТ 88147, (ЯҢ0414) +9, LET P ERE RERO а o тал лан 
1api+1: МЕТ 60.70 150 1020 DATA 52,126,255,255,255,255 
110 LET ebd. LET &2INT ЕМО ,126,60 5 ж z 5 А, 
e 1190 INPUT unombre del Jugador a 
189 PRINT INK a; PAPER 5; BRIGH y TEES 
sie DAE 148) 1208 INPUT "попьгё del jugador a 
о ачырга }Р1;АТ 1,@@;у%; naci tlo? nius! BEER 15 
‚160 IC Paria THEN PAINT АТ 8211 2008 PRINT AT 14,2; "ОТАО PARTIOI 
8 2; "GANADOR ";u$: GO TO 2000 1816 ТЕ тыккүйа"ъ” THEN OO SUB 1 
170 IF р1а11 THEN PRINT 8 ӛлді 2919 IF INKEYSe"s 
i INK Si FLASH 1; BRIGHT 1; БЕРЕ 2080 ТЕ INKEVge"n" THEN STOP 
А 2; "GANADOR ";a$: GO TO 208 3 i5 132080 п 
828 IF co3 ӨМб (IN 49158«853 OR зеи 
ің 431604189) THEN LET саста; Р 
RINT BT с48,4:" "GAT Ч 
210 IF cil Ар (UN 529451265 o 
R IN 327883169) THEN LET сасуд; 
PRINT АТ с-8,4," " -9;d; S 
220 IF a>3 AND IN 3рәбішіді THE 
y CET авага, PRINT АТ а+з, 
Е T 
Dad 188419 AND ты 652782250 TH 
EN L заа: NT RT a-2,b; 
EET 
RINT RT с,4; INK 8; BRIGHT 
¿AT c*1, AT SW 
RINT AT a, 


"ЯТ 841,5/ 
pu зав: LET faf+h 
.265 PRINT AT Е. Th" 
"атан $=20 THEN LET Ve-V; ВЕЕР 
280 IF 522 THEN LET va-v: ВЕЕР 


11,25 
880 IF (ams AND Ба!) OR (cas AN 


MTUN TOO Y MASANA 19948 


Puede que usted sea de los que 
utiliza las revistas para leer y tirar. 
Si por el contrario le gusta colec- 
cionarlas, lo más adecuado es 
mantener un pequeño fichero con 
los temas que le interesan. El joven 
ашог de este programa vio en el 
Spectrum una solución a la orde- 
nación de las revistas de ciencias, 
fácilmente ampliable a cualquier 
otra publicación. 

El programa sirve para archivar 


Го 005 


los artículos referentes a un tema, 
y de cada artículo se introduce el 
nombre de la revista en la que apa- 
rece y la fecha de la misma. 


Para crear un tema con sus res- 
pectivos datos, se usará la opción 
A. Al hacerlo se le preguntará por 
el nombre del tema y se abrirá un 
canal para el microdrive en el buf- 
fer 4 con el nombre del artículo, el 
de la revista y la fecha de ésta. 


Arturo: «Soy un 
fanático de los 
ordenadores y 

adoro la 
programación», 


La opción B es el listado del ar- 
Chivo por pantalla, mientras que la 
opción C utiliza la impresora para 
mostrar los datos conservando el 
formato de presentación en panta- 
lla. 


Las opciones D y E permiten la 
necesaria actualización de la infor- 
mación. 
16К 


Autor: Arturo García 
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EM Arturo Garcia Ares. SEP А? “178: IF LEN TO>20 THEN PRINT 
"ЭР эвдэн сат ИИ ЫЛ ТАЛАГЫ 
9 des Мені ЕНТ Ше сон 
" ¡A Жон ТР LEN (io THEN LET 8 
; 
Ч : О ДЕНЕ 
“ у 55, SUANDO 8 ЕЗ РОМ ЫМ 
1 9 MO NOMBRE DÉL RRTIGUL PRIN 
et 1877 21,0; "Pulse Una tec : PRU 
1 ! i КЕ Би NOMBRE DEL 
M En ӨМ Ь 4 ep M 5% 
LH Ч ЁС 8 2808 Besco THEN оо то эе 
E ы чий ф Ho 5 LR QUE 
pU dines 
; ier ie Нч чат 
i 51298046 е pm. nuevo re — 30 ERISA Ru pa THEN GO TO 195 


EZ ш--а р = oo - 
O05 аш 2 о ge у. өше оо = 
тас ат во: ө с оо: ш: ӨР ш 9 
аФ- - ogon + о ш = Е- -90 лоте * 
A -Ha о от с Ot — яле о: ш d : 
S uo СЕ 2а 5 Z Бас “ыз I 2 р» 
к - à то жн о = - снб» оо ш2- o э |= 
Бы Энх EK 2 ше 5 ата но оз F sa alo 
LI ye = шун - со - unn шш H: ат т 
шə жа : и па о a O = ою We ОС: ОЗ O заса 4 о 
ао ев “4 02-69 (8 бо С жы-.тс omn a: o мш | © 
FE Ew e: E Нш ы жер a «б 05 Үй Эси 20-11 
---шос ше - Z- = на. = ж. рен хау хон o ег +: О *- 
20: OZO асыа-- ше O0 s те я новых ш: J ш = та, ш 
H DO р та тї а o Г LI | ZaSI: б. I i be] Шы 
- эша та - ш ЖЕ ае Ы Ра ұлды! ао ~O- = ж. - "S. ® 
HoLa MEL се е а. Я жа кт юэ? LO qon 202147 
-JZ IM 202 --- =00 - та ZOA - 29r. т «+: Io 
225.2" ама os #00. bd oa: Өш: .. 2 u 
зғао: 2-- arzo: -248: WO) -~ -00404€ ючг-2101 ---7 Өш * - HE нь 
Яс: Шан - M КЕД MNHN: HHEH HO жне: ^ а-а та 
Оа o ХЭВ DI FE Sor una] T. d Ba corr. жой ы ыг 
anon о УА 3 
ЮЮЭ » -R5b HO керегә ОЮО8ЭЭ5Р crer o APTO SPA Ня 23 Szebb [zs 
52097; oaüeruoo Н баша НООШГан юз we ibas бп гита СЕ кичин инж 
заво" с Z2 ики Өн коа 20.2000 та Iu ишнен. часатгюв ош OUR шшоаааа laa 
ОЗИ јан) Or"5Oq- O0 nàaüó0O00O0H000 DOWAH (97 0 M-E носа HOHOH и ао 100000 аак 
E c ОК т. IE оғаш o ш - о на -- 
юш щи) э©@ф 1 en» жк ре ч ZI) DTT-0O0OQ9-9099o.J ш бою ZOO 9980-0094 00: 0900990090 coo 
DNA вм. TO TUA МАМАСЫ ггг оао — - -оөөаш-ешооео+ю OMOR —1306-O0-40 +00 
IZ к A = мачеа чэ ARA dau co - еее ее dd 


юго = 44 М 2 zza - = 
жы н оаае в © ш Ө ны ч н 
OJos в неке в ч т © r- С a 
Z cd е azo- а в к ө de Жу 2 = 
кән шан» я - ө я н ж н 
+ но шаса » а Б = aov = 
s коок а ш в - a го je 3%. к 
>A- ш ас-- в оғы 2 ^ ei э шле ш - ш 
ш ам 1 ы) ees а >: о FP. 3 o Е 
ФО 2ноо 2 --38- ао - :а|ө "c => 
o H-ZO 2 ОМ»: "Ч мою = =#-Ш ео 3 o = = 2 
2 :O ш æ rs ан рю 8 > © zo ше [7] 
o vod X HNED ви ба. -* o o ош гн A 
f-- & ғ --MZOLOGUS HOS 4 -nn Eo Е --- к 
- ют e TDRMTC п + аа шə. ыш oca ч 
= OJO Ө -- SM = 4. —а— Tu оф аа + ө-а ә 
- сон: a а кə woe. хасаж oJ «ev 9-Е ч 
= © йты ^ жа асоатзесаоі- е -- c Ө E эо ^ ға ^ 
Ө-- Ю-- (QST -Чи-НЧ тер - -IZ ФО -~Ha -1- -- 
460940107 -OO (0.94 +--+ A ж-- | а-өге- HH с: кн 
эчвэон ая ч а жя әшен-ш ::@ | поті Hoo" d т 
0 20492 п qw -neps “ с .EOWwZ HE! өзг 
оро ЮҮ ош JO.: MU ЕЕ L' o ош CHI ~ сш 
FZIWMMEL- 1 ZZO: 9 99 5995 »er5 3.04 4 
н хон: -Maaa ааран ш-н [XOO ас: OH E к 
ОШОО euwrearrorceusoOzazau пап ш 1402 оши опаопи2 :2аааа іоог2аныша өспе ZOZCO 
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Hogramas 


Far West 


Si es usted un intrépido aventurero de los que 
desconoce el significado de la palabra “miedo”, 
acaba de encontrar un programa hecho a su me- 
dida. El objetivo es derribar al contrario desen- 
fundando antes. ¿Que cuál es el motivo? Eso no 
importa demasiado: cualquier motivo es bueno. 
¿Cuál es su contrincante? Eso ві importa y mu- 
cho, porque si elige al temido Spectrum ya pue- 
de ir сауапдо su sepultura. Le aconsejamos em- 
piece con sus amigos, pero no le daremos la más 
mínima indicación de cómo usar el programa: él 
solito se lo cuenta todo. No falta la música del 
legendario oeste (no se pierda la sintonía de la 
rutina que comienza en la línea 27). ¡Que la 
suerte le acompañe, forastero! 

Debido a la complejidad de los caracteres grá- 
ficos definidos, el listado 2 es una copia de las lí- 
neas 150 a 480 previo a la definición, para 


mayor sencillez en el segmento de los caracteres 
gráficos empleados. 
Autor: Antonio Garrido 16K 
ШЕН LISTADO! 17 IF kg="" THEN GO TO 20 
1 90 508 500 18 80 ТО 15 
3 BORDER 0; PAPER ð: INK 7; C 22 CES o PRINT T TRE 10; "Far ues 
th : 
8 БЕТ angi LET арата МАЕ алға oponenta es e 
АБ 55 NT ТАВ 10;"Far-wes L temible SPECTRUM 
ят 3,10 22 PRINT " Es extremadamente p 
a reciso no errando ningun dispa 
Г с," 
y La i 23 PRINT '"Tu unica esperanza 
PRINT es &$condertedetras de Los cactu 
| И: $ y las ca- rretas para intenta 
аё суп" AN г sorpren 
| AND а8с»"5 24 ШЕТ рид: PRINT AT 21,0; "Рге 
60 TO 10 sione “ENTER” si esta Listos": б 
) ¿11 LET р 0 308 27 
sion de do 25 CLS : PRINT TAR 10; "Far -wes 
27; LET КЕ t";RT ба А 
| 525" AND 25 80 Т 
| EN GO ТО 1 27 LET LET spasp+i: BEA 
2 мн к% D haii i EEN 99, ШУ 55 
| ЭЕ аби" п" OR айа"М" THEN GO TREN EET КЕТ 32 ТЕ 11 LAC T 
14 PRINT RT 9,0:" Pasando рог НЕН СЫ 1Б,.05,20.6,.95, 
Creersville, te hasvisto envuelt 15.8,.05, 15:8,.8,11.5,.5, 
о «n una pelea al intentar salv 13.5,1.2, 
ara la dulce Sweet Lucy Lo 30 DATA :5,:05,20.5,.05, 
ve (La chica del salon), Y Lo 15.5,.05,% 15.,8,.,6,11.5,.5, 
НЫ con КЕНЕ ЫҒЫН 
Н . a . . 
mas tenido de 10405105 tiempos." 1528, 06 A AA ETECH IES 
15 PRINT AT 21.0; "Presione 'EN 18:5::2,8 :2,5.5,:07,15:5,:05 
TER psi esta tisto.": LET рад: G ,20.8,.08 $,.05,40.6, 1,15.5,. 
“ $,13.5,1. 5 
КИ" ӨҢ, 88:55 THEN GL. 3a IF i 2 THEN RESTORE 29: 
a TOC NER ALATO FOR раі T Q: LET pSsINKEYS: I 
119) OVER 1; PRINT п NEXT ер 57 
Jugador un 33 IF p " THEN RETURN 


бос -og no— 
Oran- 10 п: 


чооо-а -Ws 


аш. 2 


AND а1»д AND а1‹›а 


290 


THEN GO SUB 390 
90+230 


11245240 


9 
за 


и.а -LOOu SOON 
аи --Og3cdosra 
хаба ou... 


—I-«4O0HOuwrom:-rce*-O00: OH T 
OO -өш-ін 


LOWOLLOUOQQQH: шо@--: шаш -- 
-OHH 10000 ащ тосор 
11599555: : 999A: ANDAS IA ---Oug9ssi*aon-qoaw- QOQ -ж 
29 unde DI 

-3-0 HANN -1- 
2C S*IOO0* 


ALAIOR 
сотон NARA | 


AIO +. ч} O 
00000000 


ONA H 
NO--NTO-e 


G 
Pres 
comenzar," “Presion 


Н 


фа: 


F ҚКфа"" THEN GO ТО 80 


raratecia 


PRINT RT 21,0; "Рге 


hacia abajo 


Р" 


BORDER 8: C 
(ВМ045) +2: 


нэг ргөє 1006 
ШЕТ 352851 


IT AT 8160) Рё 


sta Lis 


20 ~ uze 


; PRINT TAB 10;"Far-wes 
; QUER 1; 

$i esta изо, ": 
¿ PRINT TAB 10;"Far-ues 
; OUER АГ 

PRINT 

INK 7: 

8,3; “Punta: 


120 PRINT AT 


00—-0e0v4 


23; “Punt. 


b; 
b- 


) 


а+ 
2+3 


¡AT 2 
20: LET sius1+1; 


550: LET ӛ2ч32%1; 


E 
RUDA LOW 9: Зи. 
т+и ITOT ~n M 


420 RESTORE 
ha 


RINT RT à 


қ 95 -Sor*t'089 
-WHD „юш Лоб г 
“Ша? пан - 4 
EA Oasi іс 


ә 
F 
iis 
INK 6;"$ 
Je 
INK Bj" 
952 
ша 
51 
14386 
5M 
"ЭТТ 


„$: 


2 
яр 
N 
6 
EN PRINT RT 


Hh 
56 
7+ 
(2 
4» 
TH 
15; 


PRAN чч 


э Mv ман 


yal ТО 20 STEP 3: 


‚Ат а 


И 
170 IF RND»,4 THEN PRINT RT 


INK 8;"A";RT J*1,185; 
г 
@ 
үд 
» 
с 
5 
5 


эше жшн 
тоошо 10-06 - 
чая p va н a 
= 7 бе 16% 


ГЭ 
5 


140 60 SUB 300: 60 


150 IF 


a 
16@ (В 
a OR 944 THEN PRINT AT 


14; 
8) 
16; 


18,15; 
ы 


6 


мн 
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/ 
REVISTA PARA LOS, USUARIOS 
DE VIS DENADORES SINCLALS | 
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22214 Lts хөг2 Fo € дала. зн 
ашо-—- огаатин.а ж ичмошЕ о Ем Y 
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zano te a2 сч аа 2 “khon cH a шо. 
о E z ~ 
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не. 30 acto E кіш v x я хе чо © 
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шах xz wzo- H:A: ча о нао те 
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4980 GO TO 550 

495 REM Musica de R.I.P. 

500 READ X,Y: BEEP X,Y 

510 RETURN 

580 САТА 1,-1.7,1,-1.7,.8,-1.7, 

1,:1,7,.5,1:4,:5,.35,.8,:38,.85,5 

2:7,1,51:7,48/54:7,1:51:7 

550 DATA .2,-2,.2,1,,8,1,,2,-1 

:2,3,:5,3,:8,5, 8,5, 12, 3, 2,5, 8 

18,,8,8,,6:10 

560 МЕХТ 4 

885 PRINT RT Ө,9:5148Т 2,2952 

585 FOR Axl TO 26: NEXT REST 

ORE 558: FOR 831 То 11. READ BIG 

: ВЕЕР В,С: NEXT Я 

567 DATÁ ,8,1,.09,-62,.1,-4,.1, 

4 21,4 4, 23, 58, 74, 1, -80, .3, 

0,:08.-50,.2,1 

672 POKE 23659,1: PRINT RT 22,0 

; PAPER 0;"Probamo de_nuevo?." 

HB 23659,2: LET а S INRÉYA: Ir 
T. ТНЕМ GO ТО 57 

ё H IF Af="N" OR Ag="n" THEN ST 


13:24 IF a$="s" OR ag="S" THEN RU 


595 60 TO 570 

599 REM Definicion caracteres 9 
raficos. 

602 RESTORE 510: FOR ағд ТО 167 
: READ b: POKE USR "a"+a,b: NEXT 
AE там, 

x 8,28,54 
,38,0,0,0,0:8:8:0:36:48 6 6:8:8 
820 DATA 207,207,207,255.192,19 
2,192,192,243,243,243,255,3,3,3, 
3,8,8,8,9,8,8,254,214 ї 
630 ORTA 126,125,110,64,28,28,2 
8,355,8,28,62,854,62,106, 254,814, 
125,125.116,52,28,28,28,285 
648 DATA 160,224,240,240,175,48 
,940,64,2,8,7,8, 263,24, 7,5,040,8 
49,112,118,112,112,112,2й08 
558 DATA 7,15,14,14,14,14,16,89 
(87,240,216,858,240,188,284,198, 
117,18,15,16,15,15,7,3 
86% DATA 827,240,840840,840,840 
,ШВА,198,845,18,87,68,15,1,7,3,5 
:7:18,15,13,18,15,5 
872 DATA 84,192,224,162,191,24, 
224,64,15,15,14,14, 14, 14, 14, 11,2 
24,240,112,112,112,112,112,0 


MODULOS 


MADRID 
(91)73396 62 


BARCELONA 
(93) 3014700 


Е 


PROGRAMAS ЕМ MICRODRIVE 2Х 
GESTION: 


Contabilidad (P.N.C.) 12.000 pts 
Base de Datos 8.000 
Proceso de textos (español) 6.500 
Calc (hoja electrónica) 4.000 

P. ESPECIFICOS: 

Agente de Bolsa 6.500 
Administradores de Fincas 15.000 
Mediciones y presupuestos 24.000 


También disponibles en cassette 


5 
MIC r = = ——— оооло SPECTRUM 


PROGRAMAS ЕМ CASSETTES 


EDUCATIVOS: 

Geografía 1 1.900 рв 
Geografía II 1900 > 
Curso de Contabilidad | 2.200 
Curso de Contabilidad 11 2.200 
Geometría y Trigonometria 2.200 
Superdesarrollos 1X2 3.900 


(imprime boletos con Impresora Admate) 


CURSILLO DE BASIC GRATIS, SI COMPRA UN MICROORDENADOR 
ORDENADORES: Spectrum, Spectrum + Spectravideo, Commodore, Oric, Katson. 
IMPRESORAS: Star, New Print, Seikosha desde 774 ptas. al mes. Monitores, Accesorios. 
MODEM TELEFONICO - AMPLIACIONES DE MEMORIA - LAPIZ OPTICO - CURRAH ($. DE VOZ) 


desde 1.239 pesetas al mes 


б... ENVIOS CONTRA REEMBOLSO, GIRO O TALON CONFORMADO С/ Silva, 5-4.°. Tel, 242 24 71- 


28013 MADRID 


2 


Con este programa, 
como ya habrá adivinado, 
podrá jugar al ajedrez. 
Pero no se entusiasme de- 
masiado: sólo sustituye al 
tablero, ya que no podrá 
jugar contra el ordenador. 
En cualquier caso, es un 
bonito programa con una 
definición gráfica inmejo- 
rable. Para mover las fi- 
chas ha de indicar la ficha 
que desea mover, las 
coordenadas de la posi- 
ción en que se encuentre y 
las nuevas coordenadas a 
donde se desea llevarla. 
Después presione "e" si 
se equivocó o “т” si es 
correcto, Empiezan, 
como todos saben, las 
blancas. 


RBCDEFGHIJKLMNOPORSTU 
ЭЭФШЕРОНТЛКЬ Ммо1088 RU 


Autor: 
Juan Hernández 
Navarro 48К 


CLERR : RESTO! 
BORDER 1: PAPI 


POKE 23009 ,20 
LET азад: LET 


e 
тл 
»m 
> 
н 
2 
х 
e 


c 
a 


DRAW à: Зав: DRAW 128,0 

DRAU 2,1128; DRAY -148,0 
@ 
12 


DRAW 2,-138: DRAW -13@,@ 


би б IO ULP GROUP G IO LP ON 
SOSA вн 


Юю» 


МЕ: п 
LET dad«32 


E 
ei 

SER 
Ф Ф 


- PARRLO-QOMO CNI 


юЮю-рбвВЁОЮ PORO 


ә 


210 IF 44156 THEN LET du44: GO 
220 IF de172 THEN LET 4-28: GO 


GO TO 170 
LET аза+16: LET bzb*18 
IK 441452 THEN GO ТО 3@@ 


TO 1 

Coordenada 

NT INK АТ. 1,9;'ABCOD 
e 

Т 


не 


TO 8 
NK Q;RT є#2+1,1; СНЕЖ 


DZA "67020 


M 
T 
H 
R 
IN 
X 
M 
I 
A 


4 
17 
4 


дл 
H iH 
23 
^m 
e. 
Ze 
E 
NNN 
D: 
а-в 


Т AT 19 ts ар 33 Ж 


В їа3 TO 17 STEP 2 
INT INK @;АТ 5,194 
НЫ ?;АТ 18,\;"1" 


> 


ни :ыго2гоот QU 


37 THEN PRINT INK i;RT 

INCAS" ar 20 19+INT tiz- 
120 THEN PRINT INK_i; AT 
GRAS" AT 80,1941МТ (12- 


258% ВЕЕР ,5,20 
4,22;"Pieza: 


re re 
E es 
CAHCMZ АГ A 


RADODD 


EY 
"а" AND 
Z4) С" 
AND z&o 
&9;CHRS (C 


508 900: 


м66-66 PO NSS6SSG6S :- өсе 


тын 


cD OG- юган 
4 55% 


¿DN 


23 
mon 


e Ф 
твьызбө-оеноті0о- UOHUOUUGHUUdUU XH HWDIWS-HUVUVOS 


JG "DU4ADG"DOdU0DG2D6"D-D656T"DO0 DI 


o 
(Ооо Zw (АОЛ СЛОТ. AM- GILL РР 


© mo :0A JA -0В2Ю02ЮЮб(-410(186-18-- (0 


o 
01+ nma 


z 


¡AT 7,22;"Posici 
Ar 


à j 


KEY $ 
TMEN GO 


his i;RT RORIS E 
ё : ВЕЕР .1,3@: 
а 


: ШЕТ ч агмкЕҮд 
"i" OR 48978" THEN GO 


NT INK i;RT 10,25;48: BE 


¡AT 13,22; "Розіс 


2 
JAT 16,23; 
ZR 


i 


CA нсөн 


5 
THEN GO 


E 
Ер ii 

4. ЕСТЕ 

Е [ЕТ rss 

8 OR r$» 

T, INK ii AT 18,20; нев i 
1 

Е 

6 


zo 
(mO- 4-6 


^^; BEER 11,30: PO 
e 


; СЕТ $s$sINKEYS 
«"1" OR 58978" THEN GO 


NT INK i;RT 16,25;s8: BE 


m 


HCGH 
(2 
m 


20 
NT INK i;RT 20,6;"( E - 


USE Q: SET А 
ШЕТ j8c»"m" THEN 


Е THEN POKE 23176,1 
3,30: GO SUB 1200: GO 


F j$z"m" THEN POKE 23180,1 


x 


лр DIG 


ma 


do 
00600-4 -1-г9-1-4-1-1 


2 
HSmHOHU VD- 


ВЕЕР .3,30: GO SUB 1009 
30 IF iz? THEN LET 140: GO TO 


@ IF ізд THEN LET і=7: GO TO 
M Enco 

INT NUT i;RT 7,22; "Епгоау 
180, 0-02 Largo"; АТ 11,3 
U: LET ё&=ЇМКЕҮ&$: BEE 
‹›"с" AND es<>"L" THEN 


АМО ie? THEN POKE 
INK, 1; RT Eds 


4 


е бһө-166 


DOO 
- 


в- 


T 
AND HEN. РОКЕ 
т 2% ti тк: Ai 


N 
43! ii 
A 
N 


Юл 
юбь 


~ ен 


ооо 


"Ж, ТНЕМ РОКЕ 
INK 1; ЯТ 17,11 
INK i;RT 17,7; 


; 
AND ARALAR агы 
ЯР 3,7; uet 


NO 
час 


D 26:32 D -DAD = 


Dis Oo ШО 
OOD-G -n 


FOGI=6S 


85 z7 OR 419 OR 411 OR q= 
O TO 1110 

4415 OR qz17 THEN GO TO 
Wires CES +Р) в 
ЖОБС ад +Р) а 
1188 384324(4-7) +р) а 
18432 +324 (9-7) +р) = 


deberan pulsar; 


La inicial de la pieza que 
зе desea mover. 


RsREY @ CaCRBRLLO $ 
DaDAMA Y РаРЕОМ 1 
T=TORRE Ж EsENROGUE 
ARALFIL Y Q=CAMBIO 


Las coordenadas de la posi 
e 


cion en la que se encuentr 


59 Pieza, 
(Presione una tecla) 
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Hogramas 


SOFTWARE PROFESIONAL 
PARA ZX-SPECTRUM 


MENU. 


IMPRESION N. 
COD.Impresion 
INTERFRCE 
CHR$ Graficos 
MEMORIA EXTERNA 
TEXT! Pers. 


Camb.en INFO 
IMPR.con FICHR 


CONTEXT V.6 (*) — Procesador de textos 64 
columnas. Caracteres españoles. Cartas per- 
sonalizadas. ¡Sensacional! 

P.V.P. 4.000,— Ptas. 
CONTABILIDAD PERSONAL (*) — Contabi- 
lidad doméstica o de pequeño negocio. 64 co- 
lumnas. P.V.P. 2.500,— Ptas. 
HISOF PASCAL.— El único compilador de 
Pascal creado para el Spectrum. 


P.V.P. 6.000,— Ptas. 


НТ: 
May 


8 
о LISTAR FICHAS SELECCIONADAS IMPRESORA 
o LISTAR IOFORNACION PRGIURDR IMPRESORA 


о SAVE PROGR.+ ARCHIVO 
9 SAVE SOLO ARCHIVO 

9 DESCARGAR FICHAS SELECCIONADAS 
9 LORD ARCHIVO 

9 MERGE ARCHIVO 


9 CANBIAR COLORES 


Prueba Operi l 
8 Fichas Seleccionadas: 


SITI (*) — Sistema integrado de tratamiento 
de información. Base de datos con posibili- 
dad de cálculos complejos y ficheros 
auxiliares. P.V.P. 4.000.— PTAS. 
BETA BASIC.— Más de 50 nuevos coman- 
dos de Basic para tu Spectrum. 

Р М.Р. 3.000,— PTAS. 
HISOF DEVPAC (*). — Conjunto de dos рго- 
gramas, ensamblador y desensamblador de 
código máquina. Impresionantes. (GENS 3M2 
y MONS 3M2). P.V.P. 3.500,— PTAS. 


CYRUS IS СНЕ55-- El mejor ajedrez. 
Campeón de Europa de 1981, 


* Compatible con Microdive y/o cassette 
y cualquier impresora e interface de 
impresora 


P.V.P. 3.000,— PTAS. 


GRAFPAD 


Los mejores dibujos realizados 
cómodamente. Trabaja hasta 
3 pantallas a la vez. Incluye 
programa de funcionamiento y manual 
completo en castellano. 


TIENDA: 

C/. Córcega, 89 - Entlo. 
08029-BARCELONA 
Tel. (91) 230 97 90 


TABLETA DIGITALIZADORA PROFESIONAL 
PARA ZX-SPECTRUM 48 K. 


VENTAMATIC 


PEDIDOS POR CORREO: 
Avda. de Rhode, 253 
ROSAS (GERONA) 

Tel. (972) 25 56 16 


¡un | ay | 
ал 


[Р] Desearía que incluyeseis en al- 
gún número próximo un artículo 
sobre los discos flexibles adapta- 
bles a Spectrum, sus instrucciones, 
capacidades y precios. 


Juan Jiménez 
Santander 


[к] Silog comercializa la unidad de 
discos OPUS de Technology Re- 
search Limited. Puede trabajar con 
discos de 100, 200 y hasta 400 
Kbytes, al precio de 29.850 el in- 
terface y 55.200 el floppy. En las 
ferias de SONIMAG y el SIMO, 
Timex presentó su nueva unidad de 
discos, la Timex FDD System, con 


dos tipos de floppys, los TDD-1 de 
40 sectores y 250 Kbytes y los 
TDD-2 de 80 sectores y 1 Megaby- 
te. La comercialización de este 
floppy de Timex compatible con el 
QL, se realizará por Investrónica, 
quienes se mostraron reticentes a 
dar fechas y precios, más preocu- 
pados ahora en el QL. 


RS 


[Р] ов envío unas mejoras para el programa SP- 
EASEL, es bastante bueno pero se puede retocar, 
para guardar los datos y los gráficos al grabar el pro- 
grama у así poder añadir o quitar en sucesivas оса- 
siones nuevos datos, y para obtener el nombre de 
los meses en español en vez de en inglés. 


8163 DATA 
8170 DATA 
82860а82 
aadal 


"00112а2а2а2а 
ооз 
02020209800" 

8195 DATA 2578 


Ahora tal y como se 
indica en la revista nú- 
mero 2 se borran las lí- 
neas 8000 a 8195 des- 
pués de haber corrido 
una vez el programa y se 
crea la línea: 


9999 SAVE «SP-easel» 
LINE 10:5АУЕ «Easel 
с/т» CODE 60000, 
460. 


La línea 10 se cambia 
рог 10 LOAD” 
СОРЕ. 


La línea 20 pasa a ser 
55 y queda anulada. La 
línea 30 pasa a ser 53 y 
queda anulada. Y se crea 
la línea 52 PAPER 0: 
INK 7: BORDERO: 
CLS:GOTOS00. 


Para grabar el progra- 
ma hacer GOTO 9999, 


Si se borran las variables 


por dar RUN, hacer 


goto 53. 


Si antes de grabar el 
programa зе hace 
CLEAR 59900 se elimi- 
na el riesgo de borrar el 
C/M con RUN pero si se 
borran las variables. 


[R] La respuesta es sen- 
cilla: Muchas gracias 
por su colaboración. 
Permítanos obsequiarle 
con el nümero 1 que no 
pudo encontrar. 


en España. 


manual, entre otros. 


Más temas рага el próximo año... 
EL SPECTRUM VA A LA ESCUELA. El programa más completo de 
representación de funciones matemáticas. 
DISEÑO ASISTIDO POR ORDENADOR. La sofisticación de los grandes 
ordenadores, al alcance de su ordenador. 
FLOPPYS PARA EL SPECTRUM, Analizamos el OPUS, ya disponible 


PROGRAMAS: DAMAS CHINAS, para jugar inteligentemente contra el 
ordenador y un SIMULADOR DE VUELO con control automático y 


La versión española de Popular Computing 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 


Ya está a la venta 
pU 


Bravo Murillo, 377 
Tel. 339662 
28020 - MADRID 


jFELIZ NAVIDAD!! 


LO ULTIMO PARA TU SPEC TRUM 


| mum КЕГП 
MASTER TOOL KIT а КОШ 
28 utilidades diferentes 
muy útiles, p.e. 
- reloj en tiempo real. 4 
= renumeración. $ 
- búsqueda de cadenas, 

etc. 

R 5 " 5 
DEL ы e. Con él podrás copiar cualquier dibujo, por Unicoen su género. Joystick programable 
Muy útil como agenda para complicado que sea y pasarlo con memoria que almacena varios 
direcciones, etc. ¡Ahora con posteriormente a la impresora. Muy útil juegos a la vez, durante tiempo 
formato para impresora en para dibujos cartográficos. indefinido. Incluye interface con salida 
80 columnas! que permite conexión de otros periféricos. 
CHESS THE TURK 


Juega al ajedrez hasta en 
6 niveles diferentes. 
Programa muy 
perfeccionado, considerado 
de los mejores del 
mercado. 


MACHINE CODE TEST 
TOOL 


Diversas utilidades para 
trabajar en código = 
En Muy хийн рога Escucha cómo habla tu Spectrum. Muy 
iniciarse o ampliar útil al introducirle los programas pues va 
conocimientos. diciendo" los comandos y datos, y no Crea tus propios dibujos directamente en 
hace falta mirar a la pantalla. la pantalla. 

Descubre sus mültiples aplicaciones. Desarrolla tu imaginación al límite. 


FULL SCREEN EDITOR 
ma (ASSEMBLER) 


Magnifico editor completo "INI 
para ensamblar programas. Аы 


Gran capacidad de ibles en estos momel 
caracteres/línea. -H 


FINANCE MANAGER 
—————— 


Fichero financiero con Ven a vernos а nuestras "Super-Boutiques" informáticas. 
contabilidad. Con opción 


11:18 y сн mp | 


С IMPORTADAS EN EXCLUSIVA SOMOS PROFESIONALES 
4 PARA ESPANA 2 9 
É POR SINCLAIR STORE BRAVO MURILLO, 2(арагс. gratuíto en c/. Magallanes, 1) Tel. 446 62 31 


DIEGO DE LEON, 25 - Tel. 261 88 01 - MADRID 


